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The purpose of the Programmer's Guide is 
to enable programmers to compile, link 
edit, and execute FORTRAN IV (E) programs 
under control of IBM System/360 Operating 
System, The FORTRAN IV (E) language is 
described in the publication IBM System/360 


Basic FORTRAN IV Language, Form C28-6629, a 
corequisite to this publication. 


organized to 
three groups of 


The Programmer's Guide is 
fulfill its purpose for 
programmers: 


1. Programmers who wish to use the cata- 
loged procedures as provided by IBM 
need read only the "Introduction" and 
"Job Control Languace"™ sections to 
understand the job control statements, 
and the "Job Processing" section to 
use cataloged procedures for compil- 
ing, link editing, and executing 
FORTRAN programs. The “Programming 
Considerations" and "System Output" 
sections are recommended for program- 
mers who want to use the FORTRAN 
language more effectively. 


2. Programmers who, in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/O 
devices, or temporarily modifying IBM- 
supplied cataloged procedures should 
read the entire Programmer's Guide. 

3. Programmers concerned with making 
extensive use of the operating system 
facilities, such as writing their own 
cataloged procedures, modifying the 
FORTRAN library, or calculating region 
sizes for operating in a multiprogram- 
ming environment with a variable num- 
ber of tasks, should also read the 
entire Programmer's Guide in conjunc- 
tion with the following publications, 
as they are referred to: 


IBM System/360 Operating System: Sys- 
tem Programmer's Guide, Form C28-6550 


IBM System/360 Operating System: Util- 
ities, Form C28-6586 


IBM  System/360: FORTRAN IV Library 
Subprograms, Form C28-6596 


IBM System/360 Operating System: 


Supervisor and Data Management Servi- 
ces, Form C28-6646 


IBM System/360 Operating System: Job 
Control Language, Form C28-6539 
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IBM System/360 Operating System: Stor- 
age Estimates, Form C28-6551 


IBM System/360 Operating System: Link- 
age Editor, Form C28-6538 


IBM System/360 Operating System: Sys- 
tem Generation, Form C28-6554 


I EM System/360 Operating System: 
Operator's Guide, Form C28-6540 


IBM System/360 Operating System: Mes- 
sages and Codes, Form C28-6631 


IBM System/360 Operating System: 


Programmer's Guide to Debugging, Form 
C28-6670 
This publication contains appendixes 


that: 


e Give several examples of executing load 
modules. 


e Describe the preparation of assembler 
language subprograms for use with a 
main program written in FORTRAN. To 
understand this appendix, these publi- 


cations are prerequisite: 


IBM System/360 Operating System: Assem- 
bler Language, Form C28-6514 


IBM System/360 Operating System: Assem- 
bler (EF) Programmer's Guide, Form 
C28-6595 or IBM System/360 Operating 
System: Assembler (F) Programmer's 
Guide, Form C26-3756 


e Describe the diagnostic 
duced during compilation 
module execution. 


messages 
and 


pro- 
load 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 


the publication IBM System/360 Operating 


System: Linkage Editor are abbreviated to 
"Linkage Editor publication." 
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The IBM System/360 Operating System (the 
operating system) consists of a control 
program and processing programs. The con- 
trol program supervises execution of all 
processing programs, such as the FORTRAN E 
compiler, and all problem programs, such as 
a FORTRAN program. Therefore, to execute a 
FORTRAN program the programmer must first 
communicate with the operating system. The 
medium of communication between the pro- 
grammer and the operating system is the job 
control language. 


Job control language statements define 
two units of work to the operating system: 
the job and the job step. The important 
aspect of jobs and job steps is that they 
are defined by the programmer. He defines 
a job to the operating system by using a 
JOB statement; he defines a job step by 
using the EXEC statement. Another impor- 
tant statement is the DD (data definition) 
Statement, which gives the operating system 
information about data used in jobs and job 
steps. The sequence of control statements 
and any data placed in this sequence is 
called the input stream. The input stream 
can be read by either a card reader or a 
tape device. 


JOB AND JOB STEP RELATIONSPFIP 


When a programmer is given a problem, he 
analyzes that problem and defines a precise 
problem-solving procedure; that is, he 
writes a program or a series of programs. 
To the operating system, executing a main 
program (and any subprograms it calls) is a 
job step. A job consists of executing one 
or more job steps. 


At its simplest, a job consists of one 
job step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. 


If the problem is complex, one job may 
consist of a series of job steps. For 
example, a programmer is given a tape 


containing raw data from a rocket firing: 
he must transform this raw data into a 
series of graphs and reports. Three steps 
may be defined: 


1. Comparing the raw data to projected 
data and eliminatino errors which 
arise because of intermittent errors 
in gauges and transmission facilities. 

2. Using the refined data and a set of 
parameters aS input to a set of equa- 
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tions, which develop values for the 
production of graphs and reports. 

3. Using the values to plot the graphs 
and print the reports. 


In this example, each step can be a 
separate job with one job step in each job. 
However, designating several related job 
steps as one job is more efficient: pro- 
cessing time is decreased because only one 
job is defined, and interdependence of job 
steps may be stated. (The interdependence 
of jobs cannot be stated.) In the rocket 
firing example, each step may be defined as 
a job step within one job that encompasses 
all processing. Figure 1 illustrates the 
rocket firing job with three job steps. 


DATA SETS 


In Figure 1, two collections of input 
data (raw data and projected data) and one 
collection of output data (refined data) 
are used in job step 1. In the operating 
system, a collection of data that can be 
named by the programmer is called a data 
set. A data set is defined to the operat- 
ing system by a DD statement. 







Job Step 1: 
Refine Data 





Projected 
Data 





Parameters 


Job Step 3: 
Generate 
Graphs and 
Reports 












Graphs 
and 
Reports 






Figure 1. Rocket Firing Job 
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A data set resides on a volume(s), which 
is an external storage unit accessible to 
an input/output device. (For example, a 
volume may be a reel of tape or a disk 
pack.) 


Several I/O devices grouped together and 
given a Single name when the system is 
generated constitute a device class. (For 
example, a device class can consist of all 
the tape devices in the installation; 
another can consist of the printer, a 
direct access device, and a tape device.) 


Indexing Data Sets 


The name of a data set, information 
identifying the volume(s) on which the data 
set resides, device type, and the position 
of the data set on the volume may be placed 


in an index to help the control program 
find the data set. This index, which is 
part of an index structure called the 


catalog, resides on direct access volumes 
with the operating system. Any data set 


whose name and volume identification are 
placed in this index is called a cataloged 
data set. 


Furthermore, a hierarchy of indexes may 
be devised to classify data sets and make 
names for data sets unique. For example, 
an installation may divide its cataloged 
data sets into four oaroups: SCIENCE, 
ENGRNG, ACCNTS, and INVNTRY. In turn, each 
of these groups may be subdivided: the 
SCIENCE group may be subdivided into MATH, 


PHYSICS, CHEM, and BIOLOGY; MATH may con- 
tain volume identification for the data 
sets ALGEBRA, CALCULUS, and BOOL. To find 


the data set BOOL, the programmer specifies 


all indexes beginning with the largest 
group -- SCIENCE; then the next largest 
group,. MATH; finally, the data set BOOL. 


The complete identification needed to find 


the data set BOOL is SCIENCE. MATH. BOOL. 


Data set names are of two classes. An 
unqualified name is a data set name or an 
index name not preceded by an index name. 
A qualified name is a data set name or 


index name preceded by index names rep- 
resenting index levels; for example, in the 
preceding text, the qualified name of the 


data set BOOL is SCIENCE. MATH. BOOL. 


Before using a qualified name to name a 
data set, the programmer must be sure that 
the index levels specified in a qualified 
name are placed in the cataiog. Index 
levels are placed in the catalog bya 
utility program. For more information, see 
the section “Modifying System Control Data" 
in the Utilities publication or 
"Maintaining the Catalog and the Volume 
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Table of Contents" in the 
Programmer's Guide. 


Systems 


Data Set Labels 


Information such as record format, buf- 
fer length, density, creation date, expira- 
tion date, and an identifier needed to read 
the data set are stored in the operating 
system data set labels. If a data set is 
cataloged and standard labels are specified 
when the data set is created, the informa- 
tion specified in the DD statement to 
subsequently retrieve the data set is sub- 
Stantially reduced. In addition to the 
data set name, the only information needed 
to retrieve the data set is the current 
status of the data set (new, old, etc.) 
and the status the data set is to have when 


the job step is completed (deleted, kept, 
passed, etc.). 
Generation Data Sets 

Data set identification may also be 


based upon the time of generation. In the 
operating system, a collection of succes- 
Sive historically related data sets is a 
generation data group. Each of the data 
sets is a generation data set. A genera- 
tion number is attached to the data group 
name to refer to a particular generation. 


The most recent generation is 0; the gener- 





ation previous to 0 is -1; the generation 
previous to -1 is -2; etc. An index 
describing a generation data group rust 


exist in the catalog. The index is created 
by a data set utility program. 


For example, a data group named WEATHER 


might be used for weather reporting and 
forecasting. The generations for the gen- 
eration data group WEATHER are: 

WEATHER (0) 

WEATHER (-1) 

WEATHER (-2) 

When a new generation is created, it is 


where n is an 
For example, after 


called generation (tn), 
integer greater than 0. 


a job step has created WEATHER (+1), the 
operating system changes its name _ to 
WEATHER(0) at the end of the job. The data 


set that was WEATHER(0) at the beginning of 
the job becomes WEATHER(-1). 


If more than one generation is created 
in a job, the first generation created is 


generation (+1); the next ceneration creat- 
ed is generation (+2); and so on. 


FORTRAN PROCESSING 


In the operating system environment, a 
source program is called a source module; a 
compiled source module is an object module 
(object program). The object module cannot 
be executed until it is placed in a format 
suitable for loading, and all external 
references to subprograms are resolved. 
This is done by an IBM supplied program -- 


the linkage editor. 


of the linkage 
However, the 


The executable output 
editor is a load _ module. 
input to the linkage editor may be either 
object modules or other load modules. 
Linkage editor execution can be expanded 
further: several object modules and/or load 
modules may be combined to form one _ load 
module. The linkage editor inserts the 
requested library functions and subroutines 
into the load module. For example, if the 
compiled object module TFST calls subrou- 
tines ALPHA and BETA and the library func- 
tion SIN, the linkage editor combines the 
object module TEST and the previously link 
edited load modules ALPHA, BETA, and SIN 
into one load moduie. This process is 
illustrated in Figure 2. 


A program written in FORTRAN may call 
subprograms written in the assembler lan- 
guage as long as the assembler subprogram 
uses the linkage convertions shown in 
Appendix B: Subpro- 
grams." The editor resolves the 
references between and FORTRAN 
modules. 


"Assembler Language 
linkage 
assembler 






Linkage 
Editor 


Figure 2. Linkage Editor Execution 


Processing a FORTRAN Program 


After an object module is processed by 


the linkage editor, the resulting load 
module may be executed. Therefore, to 
compile, link edit, and execute a FORTRAN 
program, three steps are necessary: 

i. Compiie the FORTRAN source module and 
any FORTRAN subprograms not compiled 
previously to produce one or more 
object modules. 

2. Link edit the resulting object 


moduie(s) and any modules needed to 
resolve external references to form a 
load module. 


3. Execute the load module. 


Figure 3 illustrates the problem program 
processing; FORTRAN subprograms and assem- 
bler subprograms (object modules) are used 
to resolve external references. 
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Efficient Processing 


Each compilation, each linkage editor 
execution, and each load module execution 
may be defined as separate jobs, but com- 
bining the separate jobs into one job is 
more efficient. 


Assume that the source module MAIN is to 


be compiled and executed. MAIN requires 
the services of two subprograms, SUB1 and 
SUB2, and neither subprogram is compiled. 


Since the compiler can perform batched 
compilations, all the compilations can be 
combined in one job step. Three job steps 
are necessary to perform the job: 


JOB: Compile, link edit, and execute 
JOB STEP 1: Compile MAIN, SUB1, SUB2 
JOB STEP 2: Link edit the modules 
JOB STEP 3: Execute load module MAIN 


Output of Processing 


The compiler, linkage editor, and other 
components of the operating system generate 
diagnostic output which can be used to 
debug programs. Among these are listings, 
module maps, and diagnostic messages. 


Data Set Organization 


A data set is a named collection of 


data. Several methods are available for 
internally organizing data _ sets. Three 
types of data sets are accessible in 


FORTRAN processing: sequential data sets, 
partitioned data sets, and direct access 
data sets. 


A sequential data_set is organized in 
the same way as a data set that resides on 
a tape volume, but a sequential data set 
May reside on any type of volume. The 
compiler, linkage editor, and load modules 
process sequential data sets. 








A partitioned data_set (PDS) is composed 
of named, independent groups of sequential 
data and resides on a direct access volume. 
A directory index resides in the PDS and 
directs the operating system to any group 
of sequential data. Each group of sequen- 
tial data is called a member. (A member of 
a PDS is not a data Set. Partitioned data 
sets are used for storage of any type of 
sequentially organized data. In particu- 
lar, they are used for storage of source 
and load modules (each module is a member). 
In fact, a load module can be executed only 
if it is a member of a ovartitioned data 





LZ 


set. A PDS of load modules is created by 
either the linkage editor or a utility 
program. A PDS is accessible to the link- 


age editor; however, only individual mem- 
bers of a PDS are accessible to the compil- 
er. Members of a PDS are not accessible to 
a FORTRAN load module. 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the name given to this PDS. 


access data set contains 
records that are read or written by speci- 
fying the position of the record within the 


A direct 


data set. When the position of the record 
is indicated in a FIND, READ, or WRITE 
Statement, the operating system goes 


directly to that position in the data set 
and either retrieves, reads, or writes the 
record. For example, with a sequential 
data set, if the 100th record is read or 
written, all records preceding the 100th 
record (records 1 through 99) must be 
transmitted before the 100th record can be 
transmitted. With a direct access data set 
the 100th record can be transmitted direct- 
ly by indicating in the I/O statement, that 
the 100th record is to be transmitted. 
However, in a direct access data set, 
records can only be transmitted by direct 
access I/O statements; they cannot be 
transmitted by sequential I/O statements. 
Records in a direct access data set can be 
transmitted sequentially by using the asso- 
ciated variable in direct access I/O state- 
ments. 


A direct access data set must reside on 
a direct access volume. Direct access data 
sets are only processed by FORTRAN load 
modules; the compiler and linkage editor 
cannot process direct access data sets. 


Saying that a data set is 
partitioned, 
organization. 
cataloged or 


sequential, 
or direct access reflects its 
Saying that a data set is 
that it is a generation data 
set reflects a method of retrieving the 
data set. Sequential, partitioned, and 
direct access data sets can be cataloged; 
however, an individual member of a PDS 
cannot be cataloged because a member is not 
a data set. A generation data set can only 
be a sequential or direct access data _ set; 
a generation data set cannot be a PDS or a 
member of a PDS. 


Cataloged Procedures 


To reduce the possibility of error in 


the frequent reproduction of job control 
statements, cataloged procedures can be 
written. A cataloged procedure is a set of 





EXEC and DD statements placed in a PDS 


accessible to 
JOB statement 


the operating system. (The 
cannot be cataloged.) A 
cataloged procedure consists of a single 
procedure step or a series of procedure 
steps defined by EXEC statements. A proce- 
dure step in a cataloged procedure is 
equivalent to a job step ina job. Just as 
DD statements are included for a job step, 
DD statements are included in procedure 
steps. 


An EXEC statement in the input stream 
can invoke a cataloged procedure. There- 
fore, the definition of joh step is extend- 
ed: executing a load module or invoking a 
cataloged procedure is a job step to the 
operating system. 


To simplify the steps involved in com- 
piling and link editing, four cataloged 


procedures for FORTRAN (E) are supplied by 
IBM. These four cataloged procedures and 
their uses are: 


FORTEC compile 

FORTECL compile and link edit into the 
FORTRAN library (FORTLIB) 

FORTELG link edit and execute 

FORTECLG compile, link edit, and execute 


Any cataloged procedure may be temporar- 
ily modified by EXEC and DD statements in 
the input stream; this temporary modifica- 
tion is called overriding. 
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JOB CONTROL LANGUAGE 


The FORTRAN programmer uses the job 
control statements shown in Table 1 to 
compile, link edit, and execute programs. 


JOB MANAGEMENT 


Job control statements are processed by 
a group of operating system routines known 
collectively as job management routines. 
These routines interpret control state- 
ments, control the flow of jobs, and issue 
messages to both the operator and the 
programmer. Job management routines have 
two major components: a job scheduler and a 
master scheduler. 


The specific facilities available 
through the job scheduler and the master 
scheduler depend on the scheduling level 
the installation selects during system gen- 
eration. Schedulers are available at two 
levels -- the sequential scheduler and the 
more powerful priority scheduler. 


Sequential schedulers process job steps 
one at a time in the order of their 
appearance in the input stream. Operating 
systems with a primary control program 
(PCP) and those that provide multiprogram- 
ming with a fixed number of tasks (MFT) use 
sequential schedulers. 


Priority schedulers process jobs accord- 
ing to their relative priority and avail- 
able system resources, and can accept input 
data from more than one input stream. 
Systems that provide multiprogramming with 
a variable number of tasks (MVT) use prior- 
ity schedulers. 


ee SC IS RON FT) RD SAS rE 
| FORMAT 


{|//Name Operation Operand [Comment] 


|77 Operation Operand [Comment] 
| 


j7* [Comment] 
PEE A Re eel ane AO one OR NCE ECCT RT ee On cee a 


Figure 4. Job Control Statement Formats 
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Table 1. Job Control Statements 
(ORS ee ee ne eer eae ee 1 
j|Statement | Function | 
}---~--~---~4-----------~~---~-------------- 
| JOB [Indicates the beginning of a| 
| jnew job and describes that Jjob| 
|-----+-~-~~4-—---~-~~-----~~-~~---—~——-+-~ 
| EXEC JIndicates a job step and des-| 
Jcribes that job step; indi-| 
| Jcates the cataloged procedure! 
| Jor load module to be executed | 
p---------- }—------~-- == === += == 1 
| DD |Describes data sets, and con-| 
{ [trols device and volume | 
| | assignment | 
Se StS eee eee tee a 4 
Jdelimiter |Separates data sets in the] 
|7* {input stream from control] 
| |statements; it appears after| 
| Jeach data set in the input| 
| {stream | 
bee ON NN ca am re ting J 

CODING JOB CONTROL STATEMENTS 

Like any other computer language, the 


job control language has a specific struc- 
ture and must conform to a_ prescribed 
format. To make the definition and de- 
scription of job control statements more 
understandable, a notation to show the 
format of the statements has been devised 
and will be used throughout this publica- 
tions 


GENERAL STRUCTURE OF CONTROL STATEMENTS 


Job control statements are identified by 


the initial characters // or /* in card 

columns 1 and 2, and may contain four 

fields -- name, operation, operand, and 
comments (see Figure 4). 

a he a a a ee et! . 

APPLICABLE CONTROL STATEMENTS | 

Spee ee ca Sere eee Seren tO een Ie me PAN USNC ee OTP Pee | 

JOB, EXEC, DD | 

| 

EXEC, DD 

| 

delimiter | 

Sh aa i a ea ee ag aie J 


Name Field 


The name contains between one and eight 
alphameric Or national characters, the 
first of which must be alphabetic. The 
name begins in card column 3 and is fol- 
lowed by one or more blanks to separate it 
from the operation field. The name is 
used: 

1. To identify the control statement to 
the operating system. 


2. To enable other control statements in 
the job to refer to information con- 
tained in the named statement. 


3. To relate DD statements to I/O state- 
ments in the load module. 


Operation Field 


The operation field contains one of the 
following operation codes 


JOB 
EXEC 
DD 


or, if the statement is a delimiter state- 
ment, the operation field is blank. The 
operation code is preceded and followed by 
one or more blanks. 


Operand Field 


The operand field contains the parame- 
ters that provide information to the oper- 
ating system. The parameters are separated 
by commas. The operand field is ended by 
placing one or more blanks after the last 
parameter. There are two types of parame- 
ters, positional and keyword. Positional 
and keyword parameters are identified in 
the definition of control statements. 


Positional Parameters: Positional parame- 
ters are placed first in the operand field 
and must appear in a Specified order. If a 
positional parameter is omitted and other 
positional parameters follow, the omission 
must be indicated by a comma. If a posi- 
tional parameter is omitted and only key- 
word parameters follow, the omission is not 
indicated by a comma. 


Keyword Parameters: A keyword parameter 


may be placed anywhere in the operand field 
after the positional parameters. A keyword 
parameter consists of a keyword, followed 
by an equal sign, followed by a single 


value or a list of subparameters. If there 
is a list of subparameters, the list must 
be enclosed in parentheses or apostrophes 
and the subparameters in the list must be 
separated by commas. Keyword parameters 
are not order dependent: they may appear in 
any order. 


Subparameters: Subparameters are either 
positional or keyword. Positional subpa- 
rameters appear first in the parameter and 
must appear in the specified order. If a 
positional subparameter is omitted and 
other positional subparameters follow, the 
omission must be indicated by a comma. If 
a positional subparameter is omitted and 
only keyword subparameters follow, the 
omission is not indicated by a _ comma. 
Positional and keyword subparameters are 
noted in the definition of control state- 
ments. 


Comments Field 


The comments field must be separated 
from the operand field (or the * ina 
delimiter statement) by one or more blanks. 
None of the information written in the 
comments field is used by the operating 
system. 


CONTINUING CONTROL STATEMENTS 


written in 
If a control 
it may be 
If a state- 


A control statement can be 
card columns 1 through 71. 
statement exceeds 71 columns, 
continued onto the next card. 
ment is continued, it must be interrupted 
after the comma that follows the last 
parameter (or the last subparameter in the 
accounting information or DCB parameter on 
the card and a nonblank character must _ be 
placed in column 72. The continuation card 
must contain // in columns 1 and 2; columns 
3 through 15 must be blank, and the contin- 
ued portion of the statement must begin in 
column 16, 


The comments field is continued by plac- 
ing a nonblank character in column 72; // 
is placed in columns 1 and 2 of the 
continuation card; and the continued por- 


tion of the comments field begins in any 
column after column 15 (columns 3-15 must 
be blank). 


number of 
con- 


limit to the 
single 


There is no 
continuation cards used for a 
trol statement. 


Note; Excessive continuation cards should 


be avoided whenever possible to reduce 
processing time for the control program. 
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NOTATION FOR DEFINING CONTROL STATEMENTS 


The 


notation used to define control 


statements in this publication is described 
in the following paragraphs. 


de 
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The following symbols are used to 
define control statements but are 
never used in an actual statement. 


a. hyphen = 
b. or | 
c. underscore 


dad. braces { } 

e. brackets { J 

f. ellipsis eas 

g- superscript : 

The special uses of these symbols are 


explained in paragraphs 4-10. 


Upper-case letters and words, numbers, 
and the symbols below are written in 
an actual control statement exactly as 
shown in the statement definition. 
(Any exceptions to this rule are noted 
in the definition of a control state- 
ment.) 


a. apostrophe . 
b. asterisk * 
c. comma 


d. equal sign = 
e€. parentheses ( ) 
f. period 4 
g. slash / 


Lower-case letters, words, and symbols 
appearing in a control statement defi- 
nition represent variables for which 
specific information is substituted in 
the actuai statement. 


Example: If name appears in a 
statement definition, a specific value 
(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lower-case 
words, and symbols 
variable. 


letters, 
to form a single 


Example: If member-name appears in 
a statement definition, a specific 
value (e.g., BETA) is substituted for 
the variable in the actual statement. 


Stacked items or items separated from 
each other by the "or" symbol rep- 
resent alternatives. Only one alter- 
native should be selected. 


Example: The two representations 


A 
B and A|BIC 
Cc 


and indicate 
should be 


have the same meaning 
that either Aor B or C 
selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. 


Example: The two representations 


A 

B and A|BI[C 

Cc 

have the same meaning and indicate 
that either Aor B or  C_ should be 
selected; however, if B is selected, 


it need not be written, because it is 


the default option. 


Braces group related such as 


alternatives. 


items, 


Example: ALPHA =({A|B|C},D) 

indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result 
is ALPHA=(A,D). If C is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 


Brackets also group related items; 
however, everything within the brack- 
ets is optional and may be omitted. 


Example: ALPHA =([A|BjC],D) 

indicates that a choice can be made 
among the items enclosed within the 
brackets or that the items within the 
brackets can be omitted. If B is 
selected, the result is ALPHA=(B,D). 


If no choice is made, the result is 


ALPHA=(,D). 


An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 
Example: ALPHAIL,BETA]... 

indicates that ALPHA can appear alone 
or can be followed by ,BETA repeated 
optionally any number of times in 
succession. 


10. A superscript refers to a footnote. 


Example: NEW)1 
OLD 
MOD 


indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


1. The name of the job. 

2. Accounting information relative to the 
job. 

3. Programmer's name. 


4, Whether the job control statements are 


printed for the programmer. 
11. Blanks are used to improve the _ read- 
ability of control statement defini- 5 
tions. Unless otherwise noted, blanks 
have no meaning in a statement defini- 


Conditions for terminating the 
tion of the job. 


execu- 


tion. 6. A job priority assignment. 
JOB STATEMENT 7. Output class for priority scheduler 
messages. 
The JOB statement (Figure 5) is the 8. Specification of main storage require- 
first statement in the sequence of control ments for a job. 


statements that describe a _ job. The JOB 
statement contains the following informa- 
tion: 


Examples of the JOB statement are shown 


in Figure 6. 


 enpee ieee amas Gey ras eh a ee ee eng Ge eT ye Se ee ae ee ee sae eS 1 
| O(peration|Operand | 


Positional Parameters 
{ (Laccount-number] [,accounting-information])1 2 3] 
{,programmer-name]* 5 6 


Keyword Parameters 


MSGLFVEL=1 
[COND= ( (code, operator) [, (code, operator) ]...7)8] 
[PRTY=nn]9 


+ 
| 
| 
| 
| 
| 
| 
| 
| 
eee 
| 
| 
| 
| 
! 
| [MSGCLASS=x] 9 
| 
| 
L 


|*I£ the information specified (“account-number" and/or 
{| contains blanks, parentheses, or equal signs, the information must be 
| apostrophes instead of parentheses. 

|2I£f only “account-number" is specified, the delimiting parentheses may be omitted. 
|?The maximum number of characters allowed between the delimiting parentheses or 
| apostrophes is 142. 
|*I£f “programmer-name" contains commas, parentheses, apostrophes, or blanks, it must be 
{| enclosed within apostrophes. 

{SWhen an apostrophe is contained within 
| shown as two consecutive apostrophes. 
{©The maximum number of characters allowed for "programmer-name" is 20. 

|7The maximum number of tests allowed is 8. 

J}®If only one test is specified, the outer pair of parentheses may be omitted. 

}°This parameter is used by the priority scheduler only. The sequential scheduler 
] ignores it. 


"accounting-information") 
delimited by 


"programmer-name", the apostrophe must _ be 
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Figure 6. Sample JOB Statements 


NAME FIELD 


The "jobname" must always be specified; 
it identifies the job to the operating 
System. No two jobs being handled concur- 
rently by a priority scheduler should have 
the same "jobname". 


OPERAND FIELD 


Job Accounting Information 


The first positional parameter can con- 
tain the installation account number and 
any parameters passed to the installation 
accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The precise format of the job accounting 
information is specified by the installa- 
tion. 


AS a system generation option with 
sequential schedulers, the account number 
can be established as a reauired parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information 
about how to write an accounting routine 
may be found in IBM System/360 Operating 


System: Systems Programmer's Guide.) Oth- 
erwise, the account number is optional. 





Programmer's Name 


name" is the second 
If no job accounting 


The “programmer 
positional parameter. 
information is coded, its absence must be 
indicated by a comma preceding the 
programmer's name. If neither job account- 
ing information nor programmer's name is 
coded, commas need not be used to indicate 
their absence. 
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This parameter is optional unless it is 
made mandatory at the installation in the 
same way as job accounting information is 
made mandatory. 


Control Statement Messages 


The MSGLEVEL parameter indicates the 
type of control statement messages the 
programmer wishes to receive from the con- 


trol program. 


MSGLEVEL=0 
indicates that only control statement 
diagnostic messages are written for 


the programmer. 


MSGLEVEL=1 
indicates that all control statements, 
as well as control statement diag- 
nostic messages, are written for the 
programmer. 


Note: If an error occurs in a control 
statement that is continued onto one or 
more cards, only one of the continuation 
cards is printed with the diagnostics. 


Conditions for Terminating a Job 


At the completion of a job step, a code 
is issued indicating the outcome of the job 


step. Instructions, written by the pro- 
grammer, in a FORTRAN program cannot gener- 


ate the code. 
against the 
statements. 


The generated code is tested 

conditions stated in control 
The error codes generated are: 
0 - No errors or warnings detected 


mM 


Possible errors (warnings) detected 


8 - Serious errors detected 


12 For the compiler, the SYSLIN DD state- 


ment is omitted, or the NOLOAD option 

is specified. For the linkage editor, 

severe errors are detected. 
16 - For the compiler, the SYSIN or 
SYSPRINT DD statement is omitted, a 
permanent I/O error is encountered, 
the source module is nonexistent, or 
the compiler, linkage editor, or a 
load module terminated abnormally. If 
any error message (except a program 
interrupt message) is issued during 
load module execution, a 16 is issued. 


The COND parameter specifies conditions 
under which a job is terminated. Up to 
eight different tests, each consisting of a 
code and an operator, may be specified to 
the right of the equal sign. The code may 
be any number between 0 and 4095. The 
operator indicates the mathematical rela- 
tionship between the code placed in the JOB 
Statement and the codes issued by completed 
job steps. If the relationship is true, 


the job is terminated. The six opérators 
and their meanings are: 
Operator Meaning 
GT greater than 
GE greater than or equal to 
EQ equal to 
N not equal to 
LT less than 
LE less than or equal to 


For example, if a code 8 is returned by 
the compiler and the JOB statement con- 
tains: 


COND=(7,LT) 
the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any of the 
conditions are satisfied, the job is termi- 
nated. 


Assigning Job Priority (PRTY) 


(Used by Priority Schedulers Only) 


To assign a priority other than the 
default job priority (as established in the 
input reader procedure), PRTY=nn must _ be 
coded in the operand field of the JOB 
Statement. The term "nn" is to be replaced 
with a decimal number fror 0 through 14 
(the highest priority number is 14). 


Whenever possible, avoid using priority 
14. This is used by the syStem to expedite 
processing of exceptional jobs. It is also 
intended for other special uses by future 


features of systems with priority schedul- 


ers. 


If the PRTY parameter is omitted, the 
default job priority is assumed. 


Requesting a Message Class . (MSGCLASS) 





(Used by Priority Schedulers Only) 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Each class is 
directed to an output writer associated 
with a specific output unit. The 
MSGCLASS=x parameter allows the messages 
issued by the job scheduler to be routed to 
an output class other than the normal 
message class, A. Replace the letter "x" 
with an alphabetic or numeric character. 
An output writer, which is assigned to 
process this class, will transfer this data 
to a specific device. 


Specifying Main Storage Requirements for a 
Job (REGION) 





(Used by Priority Schedulers Only) 


REGION=nnnnnk 


RE can be specified to indi- 
cate the 


amount of main storage to be 


allocated to the job. Replace the term 
“nnnnn" with the number of 1024-byte areas 
to be allocated to the job; C.ge,y 


REGION=50K. This number can range from one 
to five digits and cannot exceed 16,384. 


If the REGION parameter is omitted, the 
default region size (as established in the 
input reader procedure) is assumed. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 


EXEC STATEMENT 


The EXEC statement (Figure 7) indicates 
the beginning of a job step and describes 
that job step. The statement contains the 


following information: 


1. The name of the job step or 
step. 


procedure 
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2. Name of the cataloged procedure or 5. Conditions for bypassing the execution 
load module to be executed. “of this job step. 


6. A time limit for the job step or an 
3. Compiler and/or linkage editor options entire cataloged procedure. 
passed to the job step. 
7. Specification of main storage require- 
4. Accounting information relative to ments for a job step or an entire 
this job step. cataloged procedure. 


a AS es Ea ee i a a ee A = 
Name |Operation|Operand | 


~------------ fama nanan fn nn nnn nnn nnn nnn nn 


Positional Parameter 
//(stepname]+ | EXEC PROC=cataloged-procedure-name 
ataloged-procedure-name 
PGM=program-name 
PGM=*.stepname.ddname 
PGM=*.stepname.procstep.ddname 
| 
Keyword Parameters 
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i"stepname" is required when information from this control statement is referred to 
in a later job step. 

“If this alternative is selected, it may be repeated in the EXEC statement, once for 
each step in the catalcged procedure. 

3If the information specified contains blanks, parentheses, or equal signs, it must 
be delimited by apostrophes instead of parentheses. 

“If only one option is specified and it does not contain any blanks, parentheses, or 
equal signs, the delimiting parentheses may be omitted. 

SThe maximum number of characters allowed between the delimiting apostrophes or 
parentheses is 40. The PARM parameter cannot occupy more than one card. 

6If “"accounting-information" does not contain commas, blanks, parentheses, or equal 
Signs, the delimiting parentheses may be omitted. 

7The maximum number of characters allowed between the delimiting apostrophes or 
parentheses is 144. 

8The maximum number of repetitions allowed is 7. 

9Tf only one test is specified, the outer pair of parentheses may be omitted. 

1°This parameter is used by priority schedulers only. Sequential schedulers ignore 
it. 


11If only minutes are given, the parentheses need not be used. If only seconds are 
given, the parentheses must be used and a comma must precede the seconds. 
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8 shows the EXEC 
Exam- 
ple 2 in Figure 8 shows an EXEC statement 
that invokes a cataloged procedure. 


of Figure 
statement used to execute a program. 


Example 1 


NAME FIELD 


The "stepname”™ is the name of the job 
step. It is required when information from 
this job step is referred to in a later job 
step. 


OPERAND FIELD 


Positional Parameter 


The options in the positional parameter 
of an EXEC statement specify either the 
name of the cataloged procedure or program 
to be executed. Each program (load module) 


to be executed must be a member of a 
library (PDS). The library can be the 
system library (SYS1.LINKLIB), a _ private 
library, or a temporary library created to 


store a program from a previous job step of 
the same job. 


Specifying a Cataloged Procedure: 


en tee hee erm 
cataloged-procedure-name 
indicate that a cataloged procedure is 
invoked. The "cataloged procedure 
name" is the unqualified name of the 
cataloged procedure. For example, 





PROC=FORTEC 


indicates that the cataloged procedure 
FORTEC is to be executed. 


Specifying a Program in a Library: 


PGM=program-name 
indicates that a program is executed. 
The “program name" is an unqualified 
member name of a load module in the 
system library (SYS1.LINKLIB) or pri- 
vate library. For example, 


PGM=IEWL 


indicates that the load module IEWL is 
executed. A load module in a private 
PDS (private library) is executed by 
joining the private library with the 
system library through the use of a 
JOBLIB DD statement. See the discus- 
sion concerning JOBLIB. 


Specifying a Program Described in a_ Pre- 


vious Job Step: 


PGM=*.stepname.ddname 
indicates that a program is executed, 
but the program is taken from a data 
set specified in a DD statement of a 


previous job step. The * indicates 
the current job; "stepname™ is the 
name of a previous step within the 


current job; and "“ddname"™ is the name 
of a DD statement within that step. 
(The “stepname" cannot refer to a job 
step in another job.) For example, in 
the statements, 
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//UXIX JOB , JOHNSMITH,COND=(7, LT) 


//STEP4 EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=MATH (ARCTAN) 


° 


//STEP5 EXEC PGM=*.STFP4.SYSLMOD 


statement STEPS indicates that the 
name of the program is taken from the 
DD statement SYSLMOD in job step 
STEP4. Consequently, the load module 
ARCTAN in the PDS MATH is executed. 


Specifying a Program Described in a Cata- 
loged Procedure: 


PGM=*.stepname. procstep. didname 

indicates that a program is executed, 
but the program is taken from the data 
set specified in a DD statement of a 
previously executed cataloged proce- 
dure. The * indicates the current 
job; "stepname" is the name of the job 
step that invoked the cataloged proce- 
dure; "procstep" is the name of a step 
within the cataloged procedure; 
"ddname"™ is the name cf a DD statement 
within that procedure step. (The 
"stepname" cannot refer to a job step 
in another job.) For example, consid- 
er a cataloged procedure FORT, 


//COMPIL EXEC PGM=IFJFAAAO 
//SYSUTL DD UNIT=TAPE 
//SYSLIN DD DSNAMF=LINKINP 


//7UKED EXEC PGM=IFWL 
//SYSLMOD DD DSNAMF=RESULT (ANS) 


Furthermore, assume the following 
Statements are placed in the input 
stream. 

//XLIV JOB ,SMITH,COND=(7, LT) 
4/81 


EXEC PROC=FORT 


EXEC PGM=*.S1.LKED.SYSLMOD 
UNIT=PRINTER 
UNIT=INPUT 


1782 
//¥FT03F001 DD 
//¥T01F001 DD 


The statement $2 in the input stream 
indicates that the name of the program is 
taken from the DD statement SYSLMOD in the 
procedure step LKED in the procedure 
invoked by the EXEC statement Sl. Conse~ 
quently, the load module ANS in the PDS 
RESULT is executed. 
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Keyword Parameters 


The keyword parameters may refer to a 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


If the parameter refers to a program or 
to an entire cataloged procedure (with the 
PARM parameter only the first procedure 
step is affected), the keyword is written 
followed by an equal sign and the list of 
subparameters. (In example 2, Figure 8, 
the parameter ACCT applies to the entire 
procedure.) When parameters are overridden 
in a cataloged procedure step, the keyword 
is written, a period is placed after the 
keyword, and the stepname follows immedi- 
ately. (In example 2, Figure 8, the cata- 
loged procedure FORTECLG is invoked. Two 
sets of PARM options apply to two different 
procedure steps; one applies to the proce- 
dure step FORT and the other to the proce- 
dure step LKED.) More information about 
overriding cataloged procedures is given in 
the section “Cataloged Procedures." 


Options for the Compiler and Linkage EFdi- 
tor: 


The PARM parameter is used to pass 


options to the compiler or linkage editor. 
(PARM has no meaning to a FORTRAN load 
module.) 
PARM 
passes options to the compiler or 


linkage editor, when their execution 
is indicated by the PGM parameter in 
the EXEC statement. If the execution 
of a cataloged procedure is indicated, 
the options specified in the first 
procedure step are overridden by the 
options in the new PARM parameter; any 
options specified in other procedure 
steps. aré deleted. 


PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. Any PARM param- 
eter in the procedure step is deleted, 
and the PARM parameter that is passed 
to the procedure step is inserted. 


A maximum of 40 characters may be writ- 
ten between the parentheses or apostrophes 
that enclose the list of options. 


The format for compiler options and 


those linkage editor options most applica- 
ble to a FORTRAN program is shown in 
Figure 9. 


Linkage Editor: 


Detailed information concerning compiler 
and linkage editor options is given in the 
section "Job Processing." 


Condition for Bypassing a Job Step: 


This COND parameter (unlike the one in 


the JOB statement) determines if the job 
step defined by the EXFC statement is 
bypassed. 
COND 
states conditions for bypassing the 
execution of a program or an entire 
cataloged procedure. If the EXEC 


Statement invokes a cataloged proce- 
dure, this COND parameter replaces all 
COND parameters in each step of the 
procedure. 


COND. procstep 
states conditions for bypassing the 
execution of a specific cataloged pro<« 
cedure step “procstep". The specified 
COND parameter replaces all COND pa~ 
rameters in that procedure step. 


The subparameters for the COND parameter 
are of the form: 


(code, operator [,stepname] ) 
The subparameters "code" and “operator" 


are the same as the code and operator 
described for the COND parameter in the JOB 


statement. The subparameter “stepname" 
identifies the previous job step that 
issued the code. For example, the COND 


parameter: 


COND .GO=((5,LT, FORT), (5,LT,LKED) ) 
indicates that the step in which the 
COND parameter appears is bypassed if 
5 is less than the code returned by 
either of the steps FORT or LKED. 


em ee ee ts ee a a ae a es re ne a a ee ee ee re es ee re me me ee re rr ee om ee ee a ee re we ee ee ee ee ee a ee a ee 


Compiler: 
PARM nnnnk \ 
PARM. procstepf =' [SIZE= lyyyyyyy) 1[, LINELNG=zzz] (, NAME=xxxxxx] s NOSOURCE 





, DECK , MAP s LOAD 
» NODECK , NOMAP , NOLOAD 


PARM MAP ,LET 
PARM. procstepf=( |XREF| |,XCAL| [,NCAL] [,LIST][,OVLY])+ 


are ete Ae ee te it ee cee at i ee SOS SO Se lh SS mS ine ene SS ee a ep me ee me se me a me ee ee a a te a eS OD Se ED a 


me te ae i se er ee cm ee ms cr ee ee ee ee ee ee it ee en Ss mn, 


, SOURCE \ 





2 BCD 1 SPACE ,ADJUST 2 
, EBCDIC , PRFRM , NOADJ UST 


If a step in a cataloged procedure 
issued the code, "“stepname" must qualify 
the name of the procedure step; that is, 


(code, operator [,stepname.procstep] ) 


If "“stepname" or “stepname.procstep" is 
not given, "code" is compared to all codes 
issued by previous job or procedure steps. 


Accounting Information 


The ACCT parameter specifies accounting 
information for a job step within a ‘job. 


AccT 
is used to pass accounting information 
to the installation accounting rou- 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged proce~ 
dure. 


If both the JOB and EXEC statements 
contain accounting information, the instal- 
lation accounting routines decide how the 
specified accounting information is used 
for the job step. 


Setting Job Step Time Limits (TIME) 


(Used by Priority Schedulers Only) 


To limit the computing time used by a 
Single job step or cataloged procedure 
step, a maximum time for its completion can 
be assigned. Such an assignment is useful 
in a multiprogramming environment where 
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more than one job has access to the comput- 
ing system. 


The time is coded in minutes and sec- 
onds. The number of minutes cannot exceed 
1439. The number of seconds cannot exceed 
59. If the job step is not completed in 
this time, the entire job is terminated. 
(If the job step execution time is expected 
to exceed 1439 minutes (24 hours) TIME=1440 
can be coded to eliminate job step timing.) 
If the TIMF parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed. 


TIME 
assigns a time limit for a job step or 
for an entire cataloged procedure. 
For a cataloged procedure, this param- 
eter overrides all TIME parameters 
that may have been specified in the 
procedure. 

TIME.procstep 


assigns a time limit for a single step 
of a cataloged procedure. This param- 
eter overrides, for the named _ step, 
any TIME parameter which is present. 
AS many parameters of this form as 
there are steps in the cataloged pro- 
cedure being executed can be written. 


Specifying Main Storage Reauirements for a 
Job step (REGION) 


(Used by Priority Schedulers Only) 


The REGION parameter may be specified in 
the JOB statement, in which case it over- 
rides the REGION parameters specified in 
the EXEC statements and applies to all 
steps of the job. However, if it is 
desired to allot to each job step only as 
much storage aS it requires, the REGION 
parameter should be omitted from the JOB 
statement, and the EXEC statements should 
contain a REGION varameter specifying the 
amount of main storage to he allocated to 
the associated job step. If the REGION 
parameter is omitted from both JOB and EXEC 
Statements, the default region size (as 
established in the cataloged procedure for 
the input reader) is assumed. The size is 
Specified in the form "nnnnnK" where 
“nnnnn”™ is the number of 1024-byte areas to 
be allocated to the job step; C.Ge, 
REGION=50K. 


REGION 
specifies a region size for the job 
step or for the entire cataloged pro- 
cedure. For a cataloged procedure, 
this parameter overrides all REGION 
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parameters that may have been speci- 
fied in the procedure. 


REGION. procstep 

specifies a region size for a _ single 
step of a cataloged procedure. This 
parameter overrides the REGION param- 
eter in the named cataloged procedure 
step, if one is present. AS many 
parameters of this form as there are 
steps in the cataloged procedure being 
executed can be written. 


For a discussion of the region size 
required for FORTRAN jobs, see "Specifying 
Main Storage Requirements for a Job 
(REGION) ." 


DATA DEFINITION (DD) STATEMENT 


The DD statement (Figure 10) describes 
data sets. The DD statement can contain 
the following information: 


1. Name of the DD statement. 


2. Name of the data set to be processed. 

3. Type and number of I/O devices for the 
data set. 

data set 


4. Volume(s) on which the 


resides. 


5. Amount and type of space allocated on 
a direct access volume. 


6. Label information for the data set. 


7. %The status of the data set before 
execution of the step and the disposi- 
tion of the data set after execution 
of the step. 

8. Allocation of data sets to facilitate 

channel optimization. 


NAME FIELD 
ddname 
is used: 
1. TO identify data sets defined by 


this DD statement to the compiler 
or linkage editor. 


2. To relate data sets defined by 
this DD statement to data set 
reference numbers used by the 


programmer in his program. 


3. To identify this DD statement to 
other control statements in the 
input stream. 


The "“ddname" format is given in “Job cataloged procedures. The step in the 


Processing." cataloged procedure is identified by 
*procstep.* The "ddname™ identifies 
procstep. ddname either: 


is used to override DD statements in 


es ee Meg a ee eel me 
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Keyword Parameters® 
DDNAME=ddname 


dsname (element) 
*, ddname 

DSNAME= § *.stepname.ddname 
*.stepname. procstep.ddname 
&name 
&name (element) 


(UNIT=(subparameter-list) ] 


c 
CO 
tr 
i 


subparameter-iist) j 


| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
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| dsname | 
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|| DISP= (subparameter-list) 

|| SYSOUT=A 

|| SYSOUT=B 

| LSYSOUT=(x{, program-name][,form-no.])©® 7 


FO mt a iis i i ss i ne ee ee a ee ee ee 
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]}*TO allow a programmer flexibility in the use of the DD statement all parameters are 
| optional, however, a DD statement with a blank operand field is invalid. 

}2The name field must be blank when concatenating data sets. 

|?The JOBLIB statement precedes any EXEC statements in the job. See the discussion 
| concerning JOBLIB under “Name Field" in this section. 

{*If either DATA or * is specified, keyword parameters cannot be specified. 

|SIf “subparameter-list" consists of only one subparameter and no leading comma 
| (indicating the omission of a positional subparameter) is required, the delimiting 
| parentheses may be omitted. 
|}®This form of the parameter is used only with priority schedulers. 

|7I£f program-name and form no. are omitted, the delimiting parentheses can be omitted. 


Figure 10. Data Definition (DD) Statement 
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1. A DD statement in the cataloged 
procedure that is to be modified 
by the DD statement in the input 
stream, or 


2. A DD statement that is to be 
added to the DD statements in the 
procedure step. 


JOBLIB 
is used to concatenate data sets with 
the operating system library; that is, 
the operating system library and _ the 
data sets specified in the JOBLIB DD 
statement are temporarily combined to 
form one library. 


The “PGM=program .name" parameter in 
the EXEC statement refers to a load 
module in the system library. Howev- 
er, if this parameter refers to a load 
module in a private library, a JOBLIB 
Statement identifying the PDS in which 
the module resides rust be specified 
for the job. The JOBLIB statement 
concatenates the private library with 
the system library. The library indi- 
cated in the. JOBLIB statement is 
searched for a module before the sys- 
tem library is searched. 


The JOBLIB statement must immediately 
follow a JOB statement, and the con- 
catenation is in effect only for the 
duration of the job. 


Only one JOBLIB statement may be 
for a job. 


specified 


A JOBLIB statement does not have to be 
entered for load modules created in 
this job, or for permanent members of 
the system library. 


If the name field is blank, the data set 
defined by the DD statement is concatenated 
with the data set defined in the preceding 
DD statement. In effect, these two data 
sets are combined into one data set. Only 
sequential and partitioned data sets can be 
concatenated. Direct access data sets can- 
not be concatenated. (Data sets may also 
be concatenated with the data set specified 
in the JOBLIB DD statement: several data 
sets can be concatenated with the system 
library.) 


Note: Data sets with records of different 
record formats or data sets that reside on 
different types of devices should not be 
concatenated. 
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OPERAND FIELD 


For purposes of discussion, parameters 
for the DD statement are divided into six 
Classes. Parameters are used to: 


e Specify unit record data sets. 


e Retrieve a previously created and cata- 
loged data set. 


e Retrieve a data set created in a pre- 
vious job step in the current job and 
passed to the current job step. 


e Retrieve a data set created but not 
cataloged in a previous job. 


e Create data sets that are to reside on 
magnetic tape or direct access volumes. 


e Optimize I/O operations. 


The following text describes the DD 
statement parameters that apply to process- 
ing unit record data sets and retrieving 
data sets created in previous job steps, or 
data sets created and cataloged in previous 
jobs (see Figure 11). The method of 
retrieving uncataloged data sets created in 
previous jobs is also discussed in this 
section. Parameters shown in Figure 10 and 
not mentioned in this section are used to 
create data sets, retrieve uncataloged data 
sets, and optimize I/O operations in job 
steps. These parameters are discussed in 
the sections "Creating Data Sets" and 
"Programming Considerations." 


Unit Record Parameters 


The UNIT, DCB, and SYSOUT parameters are 
used for unit record data sets; the * or 
DATA parameters designate that the data set 
for this job step follows in the input 
stream. Examples of DD statements for unit 
record data sets are shown in Figure 12. 


Specifying Data in the Input Stream: 


* 
indicates that a data set immediately 
follows this DD statement in the input 
stream. This parameter is used to 
specify a source module deck, object 
module deck, or data, in the input 
stream. If the EXEC statement for the 
job step invokes a cataloged proce-~ 
dure, a data set may be placed in the 
input stream for each procedure step. 
If the EXEC statement in the input 
stream specifies execution of a pro-~ 
gram, only one data set may be placed 
in the input stream. The DD * state- 


ment must be the last DD statement for 
the procedure step or program. The 
end of the data set must be indicated 
by a delimiter statement. The data 
cannot contain // in the first two 
characters of the record. 


dsname 
dsname (element) 
*.,ddname 

SNAME= *. stepname. ddname 
*.stepname.procstep.ddnam 
éname 
&name (element) 


UNIT=(namel, {n|P}2])3 


PRTSP=0 
PRTSP=1 
PRTSP=2 
DCB=( \< \PRTSP=3 ) 
MODERE\ (Stace 
| {jones , STACK=2 
‘subparameter-list® 
SYSOUT=A 
SYSOUT=B 
| SYSOUT=(x[,program-namel](,form-no.])7 8 
| 
| ,DELETE | 4 
| OLD) |, KEEP 
lf DISP=(JNEW\ |, PASS )5 


MOD { |, CATLG 
SHR ) |, UNCATLG 


a eS SS Re RS ES ee NN NS SL ee ES SS ee cen OE me SO ee ee ee ee ee oe od 


| 

| F 

| LABEL= (subparameter-list) © 
| 

| 


OLUME=(subparameter-list)é 


< 


j2If either 
| selected, 

| selected. 

{2If neither 
| is assumed. 
|3If only “name" is specified, the 
] iting parentheses may be omitted. 


of these two parameters is] 
it must be the only parameter| 


*“n"* nor "P" is specified, 1 


| 

nests 
delim-| 
| 


|“The assumption for the second subparam-| 
| eter is discussed in “Specifying the| 
| Disposition of a Data Set" in this| 
| Section. 


| 
|SThe subparameters are positional. | 
|°See the section "Creating Data Sets." | 
|7This form of the parameter is used only| 
| with priority schedulers. | 
|8If program-name and form no. are omit-| 
| ted, the delimiting parentheses can be] 
| omitted. | 


Figure 11. DD Statement Parameters 


DATA 
also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
*, except that // may appear in the 
first and second positions in the 
record. 


UNIT Parameter: 


UNIT=(namel[, {n|P}]) 

specifies an address of an 
input/output device, a type of I/O 
device, or class of I/O devices and 
the number of I/O devices assigned to 
a data set. When the system is gener- 
ated, the "name" is assigned by the 
operating system or the installation. 
(See the section "System Generation 
Macro-Instructions" in the publication 
System Generation.) The programmer 
can use only the assigned names in his 
DD statements. For example, 


UNIT=190, UNIT=2311, UNIT=TAPE 
where 190 is a device address, 2311 is 


a device type, and TAPE is a device 
class. 

{n]P} 
Specifies the number of devices allo- 


cated to the data set. If a number 
"n" is specified, the operating system 
that number of devices to the 

Parallel, “P", is used with 
cataloged data sets. The control pro- 
gram assigns as many devices as’ there 
are volumes indicated in the index and 
the label field of the cataloged data 
set. 


assigns 
data set. 


DCB_Parameter: 


DCB=PRTSP={0|1|2] 3} 
is used to indicate line spacing for 
the printer. The digits 0, 17 2, and 


3 indicate no space, single space, 
double space, and triple space, res- 
pectively. The carriage control char- 


acter in a FORTRAN record causes spac- 
ing before the line is printed. The 
PRTSP parameter causes spacing after 
the line is printed. A default of 0 
only applies to a FORTRAN program. 


{uopE=sl {.stack= + 

DCB= ( (MODE=C , STACK=2) ) 
specify options for the card read 
punch. The MODE subparameter indi- 
cates whether the card is transmitted 
in column binary or EBCDIC mode; C 
specifies column binary, and E. speci- 
fies EBCDIC. 


The STACK 
Stacker selection for 
punch. 


subparameter indicates 
the card read 
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Sample Coding Form 





1-20 21-30 








1-10 | 
']2[314|51617 18/9101 12/314[51617 18/90] | (2/3/4/5/6 





30 sores ee epee eS 213 /4 15167 [8/50 213/415] 





51-60 











Exiamal : / 


St 


polio A ha i Gag OT 5 Tata ao 





B=PRT 











Lt i deh bend TED Kel ay Sea LEY 


//SYSPRINT DD, SYSOUTSAsDCB=PRISP#2 0 |_ [ied 1 ce oe a ee 





5s Be R208 nes OT 





att tt 





Lt Examp/e Cae Goh en Ce Te Wa es Pe Oe oe el ER 





yea Ys tte ele Os WC Pa 





i Cone a 








i Pare Pieper ge kG 








22, 
/JSYSPUNCH, DD, UNIT=SYSCP»DCB=STACK=2 


1 





eo Cr a a GPE UR sO 


Loot joj op tii jt ti 























Figure 12. 


Routing a Data Set to an Output Stream 
(SYSOUT) 


Through the use of the SYSOUT parameter, 
output data sets can be routed to a system 
output stream and handled in much the same 
way as system messages. 


SYSOUT=A 

can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system printer output 
device. NO parameter other than the 
DCB parameter has any meaning when 
SYSOUT=A is used. With systems pro- 
viding multiprogramming with a fixed 
number of tasks, the processing pro- 
gram that writes the data must be in 
the lowest priority partition. 


SYSOUT=B 
can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler will 
route the output to class B. 


SYSOUT=(x{, program-name] [,form-no. ]) 
is used with priority schedulers. 
When priority schedulers are used, the 
data set is normally written on an 
intermediate direct access device dur- 
ing program execution and later routed 


through an output stream to a system 
output device. The character "x" can 
be alphabetic or numeric, specifying 


the system output class. Output writ- 
ers route data from the output classes 


Nt be a 


to system output devices. The DD 
Statement for this data set can also 
include a unit specification describ- 
ing the intermediate direct access 
device and an estimate of the space 


required. If these parameters are 
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Examples of Unit Record DD Statements 


omitted, the job scheduler provides 
default values as the job is read and 
processed. 


If there is a 
program to handle 


special installation 

output operations, 
its "“program-name" should be speci- 
fied. “Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of out put form, a four-digit 
“form-no." should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Retrieving Previously Created Data Sets 


If a data set on a magnetic tape or a 
direct access volume is created with stan- 
dard labels and cataloged in a previous job 
or job step, all information for the data 
set such as device, volume, space, etc., is 
stored in the catalog and labels. This 
information need not be repeated in other 
DD statements. To retrieve the data set, 
the name (DSNAME) and disposition (DISP) of 
the data set must be specified. 


If the data set was created in a pre- 
vious job step in the current job and its 
disposition was Specified as PASS, ali of 


the inforration in the previous DD state- 
ment is available to the control program, 
and is accessible by referring to the 
previous DD statement by name. To retrieve 
the data set, a pointer to a data set 


Sample Coding Form 








i= | 31-40 


51-60 6|-70 














1-10 20 | 21-30 | | 41-50 
i [2]3/4/516/71619]01 1 (213/415 SH DIEIOMARIEIGHEIEG (J2/3]4[5[6[718|9]ol | [2/314151617 [8[91o] | 1213141516718 [910[ 1 [2[3/415 


poe Ene Ba oS a | 











SNAME=MATH»,DISP=(OLD»PASS)) 

















KEEP 








a a laa 











Me te os ceca ees 














jes ee | I | i | ae | 1 | EP. oe! | ae | 


Figure 13. 


created in a previous job step is specified 
by the DSNAME parameter. The disposition 
(DISP) of the data set is also specified; 
if more than one unit is to be allocated, 
the UNIT parameter must be specified too. 


If the data set was created with stan- 
dard labels in a previous job but not 
cataloged, information concerning the data 
set, such aS space, record format, etc., is 
stored in the labels. The volume and 
device information is not stored. To 
retrieve the data set, the name (DSNAME), 
if the data set is named, disposition 
(DISP), volume (VOLUME), and device (UNIT) 
must be specified. 


If a data set created without standard 
labels in a previous job is retrieved, the 
LABEL and DCB parameters must be specified. 
The VOLUME, LABEL, and DCB parameters are 
discussed in the section "Creating Data 
Sets." 


of the use of DD statements to 
sets are 


Examples 
retrieve previously created data 
shown in Figure 13. 


IDENTIFYING A CREATED DATA SET: The DSNAME 
parameter indicates the name of a data set 
or refers to a data set defined in the 
current or a previous job step. 


Specifying a Cataloged Data Set by Name: 


DSNAME=dsname 
the fully qualified name of the data 
set is indicated by "“dsname." If the 
data set was previously created and 
cataloged, the control program uses 


the "dsname" to Search the catalog, 
find the data set, and instruct the 
operator to mount the required 


volumes. 


Specifying a Generation Data Group or PDS: 


DSNAME=dsname (element) 
indicates either a generation data set 











Retrieving Previously Created Data Sets 


in a generation data group, or a 
member of a partitioned data set. The 
name of the generation data group or 
partitioned data set is indicated by 
"dsname"; if "element" is either 0 or 
a Signed integer, a generation data 
set is indicated. For example, 


DSNAME=FIRING (-2) 


indicates the third most recent member 
of the generation data group FIRING. 
If "element" is a name, a member of a 
partitioned data set is indicated. 


Before any generation data set can he 
specified in the DSNAME parameter, the 
name for the generation data group 
must be inserted in the catalog index. 
The name of the generation data group 
is inserted by use of a utility pro- 
gram described in the section 
“Modifying System Control Data" in the 
Utilities publication. 


Note: Members of a partitioned data 
set cannot be read as input to a 
FORTRAN object program or created as 
output from a FORTRAN object program 
even though the member name has been 
specified in the DSNAME parameter of a 
DD statement. 


Referring to a Data Set in the Current Job 
Step: 


DSNAME=* .ddname 
indicates a data set that is defined 
previously in a DD statement in this 
job step. The * indicates the current 
job. The name of the data set is 
copied from the DSNAME parameter in 
the DD statement named "“ddname." 


Referring to a Data Set in a Previous Job 


step: 


DSNAME=*.stepname.ddname 
indicates a data set defined in a DD 
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statement in a previous job step in 
this job. The * indicates the current 
job, and "stepname" is the name of a 
previous job step. The name of the 
data set is copied from the DSNAME 
parameter in the DD statement named 
"“ddname." For example, in the control 


statements 
//%.AUNCH JOB 
//TJOBLIB DD DSNAME=FIRING, DISP=(OLD, PASS) 


//S1 EXEC PGM=ROCKET 

//FTOSFOO01 DD DSNAME=RATES (+1) ,DISP=OLD 
//FTO7FO001 DD DSNAME=TIME,DISP=(OLD, PASS) 
4/S2 EXEC PGM=DISTANCE 

//¥FTO8FQ01 DD DSNAME=*.S1.FT0O7F001,DISP=OLD 


//FTO1FOO1 DD * 


The DD statement FTO8F001 in job step 
S2 indicates that the data set name 
(TIME) is copied from the DD statement 
FTO7FO01 in job step S1. 


Referring to a_ Data Set in a_Cataloged 
Procedure: 


DSNAME=*.stepname. procstep.ddname 
indicates a data set defined 
cataloged procedure invoked by a 
vious job step in this job. 
indicates the current job; "stepname" 
is the name of a previous job step; 
"procstep" is the name of a step in 
the cataloged procedure; and "ddname" 
is the name of the DD statement defin- 
ing the data set. 


ina 
pre- 
The * 


Assigning Names to Temporary Data Sets: 


DSNAME=éname 
assigns a name to a temporary data 
set. The control program assigns the 
data set a unique name which exists 
only until the end of the current job. 


The data set may be accessed in fol- 
lowing job steps by éname. This 
option is useful in passing an object 


module from a compiler job step to a 
linkage editor job step. 


DSNAME=&name (element) 
assigns a name to a member of a 
temporary PDS. The name is assigned 
in the same manner as the 
DSNAME=éname. This option is useful 
in storing object modules that will be 
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link edited in a later job step in the 
current job. 


SPECIFYING THE DISPOSITION OF A DATA SET: 
The DISP parameter is specified for both 
previously created data sets and data sets 
being created in this job step. 


_ | DELETE 
NEW) | ,KEEP 

DISP=()OLD! |, PASS ) 
MOD( |, CATLG 


SHR , UNCATLG 


is used for all data sets residing on 
magnetic tape or direct access volumes. 

The first subparameter indicates when 
the data set is (was) created. 


NEW 
indicates that the data set is created 
in this step. 


OLD 
indicates that the data set was creat- 
ed by a previous job or job step. 


MOD 

indicates that the data set was creat- 
ed ina previous job or job step, and 
records are to be added to the data 
set. Before the first I/O operation 
for the data set occurs, the data set 
is positioned following the last 
record. If a data set specified as 
MOD does not exist, the specification 
is assumed to be NEW. 


SHR 
indicates that the data set resides on 
a direct-access volume and is used as 
input to a job whose operations do not 


prevent simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a mrul- 


tiprogramming environment for existing 
data sets. If it is omitted ina 
multiprogramming environment, the data 
set is considered unusable by any 
other concurrently operating job. If 
it is coded in other than a multiprog- 
ramming environment, the system 
assumes that the disposition of the 
data set is OLD. 

The second subparameter indicates the 

disposition of the data set. 


DELETE 
causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


KEEP 


insures that the data set is kept 


intact until a DELETE option is speci- 
fied in a subsequent job or job step. 
KEEP is used to retain uncataioged 
data sets for processing in future 
jobs. KEEP does not imply PASS. 


PASS 
indicates that the data set is 
referred to in a later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the last job step that uses 
the data set. When a data set is in 
PASS status, the operating system 
attempts to keep the volume(s) for the 
data set mounted. If dismounting is 
necessary, the control program issues 
a message to mount the volume(s) when 
needed. PASS is used to pass data 
sets among job steps in the same job. 


When a data set is concatenated with 
the system library through use of the 
JOBLIB DD statement, PASS assumes a 
different meaning. Without PASS in 
the JOBLIB statement, the concatena~ 
tion is only in effect for the first 
job step. If PASS is specified, the 
concatenation is in effect for the 
entire job. 


causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes the data set to be removed from 
the cataiog at the end of the job 
step. UNCATLG does not imply DELETE. 


If the second subparameter is not speci- 
fied, no action is taken to alter the 
Status of the data set. If the data set 
was created in this job (NEW), it is 
deleted at the end of the current job ster. 
If the data set existed before this job 
(MOD or OLD), it exists after the end of 
the job. 


DELIMITER STATEMENT 


The delimiter statement (see Figure 14) 
is used to separate data from subsequent 
control statements in the input stream, and 


is placed after each data set in the input 
stream. 

Rory ne 8 tn ee ee Pe 1 
| Name | Operation|Operand | 
p----}---------}---------~---------------- { 
[/* | | | 
(Caren a Rene ae ee a Is i ate ae a ee a 4 
Figure 14. Delimiter Statement 


The delimiter statement contains a slash 
in column 1, an asterisk in column 2, anda 
blank in column 3. The remainder of the 
card may contain comments. 
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JOB PROCESSING 


To execute a FORTRAN program, three 
steps are required -- compiling, link edit- 
ing, and executing. Using cataloged proce- 
dures to make these steps easier is dis- 
cussed in this section. 


For each of the three steps involved in 
processing, ddnames and device names are 
specified by the operating system. These 
ddnames, options for the compiler and link- 
age editor, batched compilation, and speci- 
fying additional libraries for the linkage 
editor are discussed in this section. 


USING CATALOGED PROCEDURES 


Because writing job control statements 
can become time-consuming, IBM supplies 
four cataloged procedures to aid in the 
compiling, link editing, and executing of 
FORTRAN E programs. Each procedure 
requires a 


//procstep.SYSIN DD 


statement indicating the location of a 
source module or object module to the 
control program. In addition, a DD state- 
ment GO.SYSIN can be used to define data in 
the input stream for a procedure step that 
executes a load module. The job control 
statements needed to invoke the procedures, 
and deck structures used with the proce- 
dures are described in the following text. 


Compile 


The name of the cataloged procedure for 
compilation is FORTEC. It is invoked by 
the name FORTEC as the first parameter in 
an EXEC statement. 


(The cataloged procedure, FORTEC, con- 
Sists of the control statements shown in 
Figure 48 in "Cataloged Procedures.") 


With the procedure FORTFC, a DD _ state- 
ment FORT.SYSIN indicating the location of 
the source module must be supplied. 
Figure 15 shows control statements that can 
be used to invoke the procedure. 
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/#/jobname JOB 
7/ EXEC FORTEC 
7/FORT.SYSIN DD * 


(2S ee ee 1 
| FORTRAN Source Module | 
Sse ee eee ee ee J 
/* 

Figure 15. Invoking the Cataloged Proce- 


dure FORTEC 


Single Compile: A sample deck structure to 
compile a single source module is shown in 
Figure 16. 


“//JOBSC JOB 00,JIMJONES, MSGLEVEL=1 
4/EXECC EXEC PROC=FORTEC 
7/FORT.SYSIN DD * 


Cpe ee 1 
| FORTRAN Source Module ! 
Ui Pee ee re a len ss J 
/* 

Figure 16. Compiling a Single Source 


Module 


The SYSIN data set containing the source 
module is defined as data in the input 
stream for the compiler. Note that a 
delimiter statement follows the last state- 
ment in the source module. 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 17. 


7/JOBBC JOB 00,JOHNDOE,MSGLEVEL=1 
//EXECC EXEC PROC=FORTEC 
//FORT.SYSIN DD * 


Cr ae ee rr eee | 
| First FORTRAN Source Module | 
ope ee ee J 
ane et ee ee re ee ee ae ee ee eee 2 
| Last FORTRAN Source Module j 
a ee ee Nel a a A A a a ae I J 
/* 

Figure 17. Compiling Several Source 

Modules 


If several source modules are entered in 
the SYSIN data set for one job step, the 
compiler recognizes the FORTRAN END state- 
ment. If the next card is a delimiter 


statement, control returns to the control 
program at the end of the compilation. If 
the next card is a FORTRAN statement, 
control remains with the FORTRAN compiler. 


Compile and Link Edit 


The cataloged procedure to compile a 
FORTRAN source module and link edit the 
resulting object module is named FORTECL. 
It is invoked by the name FORTECL as the 
first parameter in an EXEC statement. 


(The cataloged procedure FORTECL con- 
sists of the job control statements shown 
in Figure 49 in "Cataloged Procedures". ) 


With the procedure FORTFCL, a DD state- 
ment FORT.SYSIN must be supplied to indi- 
cate the location of the source module. 
This cataloged procedure writes the result- 
ing load module in the FORTRAN library 
(SYS1.FORTLIB); however, an overriding DD 
statement 


wT worws 


can be supplied to name the resulting load 
module. Figure 18 shows control statements 
that can be used to invoke the procedure. 


//jobname JOB 
// EXEC FORTECL 
//PFORT.SYSIN DD * 


RTS Ce Oe eee ee ee era 1 
| FORTRAN Source Module | 
Pay ge ne Ope cp at age al wt orem eee eye eee 4 
/* 


//UKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(name) 


Figure 18. Invoking the Cataloged Proce- 
dure FORTECL 
Again the source module is defined as 


data in the input stream. Note that the DD 
statement LKED.SYSLMOD must follow the 
delimiter statement for the source modules 
in the input stream. 


Batch Compile and Link Edit: A sample deck 
structure to batch compile several source 
modules and link edit the resulting object 
modules is shown in Figure 19. The result- 
ing load module is placed in the FORTRAN 
library and assigned the name CHEM. 


7/JOBCLE JOB 012,‘E .SMITH' 
// EXEC FORTECL 
7/FORT.SYSIN DD * 


See ne ee ne ee 1 
| First FORTRAN Source Module | 
Lesene cease eee ea eee eee ee wee oS J 
aa ah chees DB BEE SEAR eae Sie eR Rae eC 1 
| Last FORTRAN Source Module | 
Met ct a J 
/* 


//LKED.SYSLMOD DD DSNAME=SYS1.FORTLIB (CHEM) 
Figure 19. Compiling and Link Editing Sev- 
eral Source Modules 


Single Compile and Link Edit: A sample 
deck structure to compile and link edit a 


single source module, placing it in the 
FORTRAN library, and assigning the result- 
ing module the name XYZ is shown in 
Figure 20. The source module is read from 
the cataloged sequential data set SOMOD. 


7//COMPLED JOB 527,*JOHN BROWN' 

4/ EXEC FORTECL 

//FORT.SYSIN DD DSNAME=SOMOD, DISP=OLD 
//LKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(XYZ) 
Figure 20. Compiling and Link Fditing a 
Source Module Residing in a 
Cataloged Data Set 


Because the source modules reside ina 
cataloged data set, the delimiter statement 
is omitted. 


Link Edit and Execute 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load module is named FORTELG. It 
is invoked by the name FORTELG as the first 
parameter in an EXEC statement. 


(The cataloged procedure, FORTELG, con- 
Sists of the control statements shown in 
Figure 50 in "Cataloged Procedures"). 


With the procedure FORTELG, a DD state- 
ment LKED.SYSIN, which indicates the loca- 
tion of the object module, must be sup- 
plied. 


Three data sets are defined by DD state- 
ments in the cataloged procedure for use 
during execution of the load module. If 
the programmer intends to use these DD 
statements, he can use data set reference 
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numbers 
ing way: 


one, two, and three in the follow- 


1 - the data set defined by the DD state- 
ment GO.SYSIN (used primarily to read 
data from the input stream) 


2 - card output 
3 - printed output 


Any of the DD statements for these data 
set reference numbers may ke overridden, as 
shown in "Cataloged’ Procedures". 


Figure 21 shows control statements that 
can be used to invoke the FORTELG cataloged 
procedure. 


4/jobname JOB 
// EXEC FORTELG 
//GKED.SYSIN DD * 


(SSS te ee ee 1 
| FORTRAN Object Module | 
Gere ae a ele a ae tee oe el ahd J 
/* 

Figure 21. Invoking the Cataloged Proce- 


dure FORTELG 


Link Edit: A sample deck structure to link 
edit and execute as one load module several 
object modules entered in the input stream 
is shown in Figure 22. 


//JOBBLG JOB 00,TOMSMITH,MSGLEVEL=1 
//EXECLG EXEC PROC=FORTELG 
//UKED.SYSIN DD * 


ee ee ge ee 1 
| First FORTRAN Object Module | 
oa aa a sta es ee J 
SSS ye ee a 1 
j Last FORTRAN Object Module | 
Lice Soe ea eee ee J 
/* 

Figure 22. Link Edit and Fxecute 


The object module decks were created by 
the DECK compiler option. The linkage 
editor recognizes the end of one module and 


the beginning of another and resolves ref- 
erences between them. 
A sample deck structure is shown in 


Figure 23 for object moduies that are 
members of the cataloged sequential data 
set, OBJMODS, that resides on a tape vol- 
ume. In addition a data set in the input 
stream is processed using data set ref- 
erence number 1. 


34 


7/JOBBLG JOB 00,EDJONES, MSGLEVEL=1 
7/EXECLG EXEC FORTELG 

//UGKED.SYSIN DD DSNAME=OBJMODS , DISP=OLD 
/4/GO.SYSIN DD * 


(PERT ee ae ee een 7 
| Data | 
Bee ee A a ee ee J 
/* 

Figure 23. Link Edit and Execute (Object 


Modules in a 
Set) 


Cataloged Data 


Compile, Link Edit, and Execute 


The fourth cataloged procedure, 
FORTECLG, passes a source module through 
three procedure steps - compile, link edit, 


and execute. The cataloged procedure is 
invoked by the name FORTECLG as the first 
parameter in an EXEC statement. 


(The cataloged procedure, FORTECLG con- 
sists of the control statements shown in 
Figure 51 in "Cataloged Procedures.") 


The SYSIN data set (source module) must 
be defined to the compiler. Figure 24 
shows statements that can be used to invoke 
the procedure FORTECLG. 


//jobname JOB 
7/ EXEC PROC=FORTECLG 
7/FORT.SYSIN DD * 


a a aaa a aa a aa 1 
| FORTRAN Source Module | 
a a a ee es ae J 
/* 

Figure 24. Invoking the Cataloged Proce- 


dure FORTECLG 


Single Compile, Link Edit, and Execute: 
Figure 25 shows a sample deck structure to 


compile, link edit, and execute a single 
source module. 


//JOBSCLG JOB 00, TIONES, MSGLEVEL=1 
//EXECC EXEC FORTECLG 
//FORT.SYSIN DD * 


Single 
Execute 


Compile, Link Edit, and 


Batched Compile, Link Edit, and Execute: 


Figure 26 shows a sample deck structure to 
batch compile, link edit, and execute. The 
source modules are placed in the input 
stream along with a data set that is read 
using data set reference number 1 in the 
load module. 


//JOBBCLG JOB 00,JBOND, MSGLEVEL=1 
//EXECCLG EXEC FORTECLG 
//FORT.SYSIN DD * 


ai aS Ta a i Re a ea aaa as 1 
| First FORTRAN Source Module | 
US eet ea a a ee J 
Ga er ee oe ee ee ee ee ee 1 
| Last FORTRAN Source Module ] 
a a ard a J 
/* 

//GO.SYSIN DD * 

(Se Ses eS Se ee ee 1 
| Data | 
SRE ee SA epee RES nenT AIO een OT FSO J 
/* 

Figure 26. Batched Compile, Link Edit, and 


Execute 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and double-words. One 
word is four bytes long; a double-word is 
eight bytes long. 


When data is transmitted to main storage 
by I/O operations under control of FORMAT 
statements, one character indicated by the 
FORMAT statement is contained in one byte. 


When data is read into main storage, it 
is translated into internal format. A real 
constant or variable, or an integer con- 


stant or variable occupies one word (four 
bytes). A double-precision constant or 
variable occupies a double-word (eight 
bytes). For I/O operations not under 


FORMAT control, variables and constants are 
read from and written on the volume in the 
internal format. 


COMPILER PROCESSING 


The names for DD statements (ddnames) 
relate I/0 statements in the compiler to 
data sets used by the compiler. These 


ddnames must be used for the compiler. 


When the system is generated, names for I/O 
device classes are also established and 
must be used by the programmer. 


Compiler Name 


The program name for the compiler is 
IEJFAAAO. If the compiler is to be exe- 
cuted without using the supplied cataloged 
procedures in a job step, the EXEC state- 
ment parameter 


PGM=IEJFAAAO 


must be used. 


Compiler ddnames 


The compiler can use six data sets. Teo 
establish communication between the compil- 
er and the programmer, each data set is 
assigned a specific ddname. Each data set 
has a specific function and device require- 


ment. Table 2 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


TO compile a FORTRAN source module, four 
of these data sets are necessary -- SYSIN, 
SYSPRINT, SYSUT1, and SYSUT2, along with 
the direct-access volume(s) that contains 
the operating system. With these four data 
sets, only a listing is generated by the 
compiler. Two Optional data sets are pro- 
vided for writing the object module: the 
SYSPUNCH ‘data set is intended for punching 
the object module and the SYSLIN data set 
is intended for writing the object module 


ona magnetic tape or a direct access 
volume. 
For the DD statement SYSIN or SYSPRINT, 


an intermediate storage device may be spec- 
ified instead of the card reader or print- 
er. The intermediate storage device usual- 
ly is magnetic tape or a direct access 
device. 


If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was placed on intermedi- 
ate storage by a previous job or job step. 
If an intermediate device is specified for 
SYSPRINT, the map, listing, and 
error/warning messages are written on that 
device; a new job or job step can print the 
contents of the data set. When the 
SYSPRINT data set is written on an inter- 
mediate storage device, carriage control 
characters are placed in the records. 
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Table 2. Compiler ddnames 
es aa Sa aN aa ac tans Sa a a ak an tra a na acca a ocean iota | 
j ddname | Function | Device Requirements | Record Length? | 
-------- }------------------------------------}---------------=-------}+----------=-----4 
| SYSIN |Reading the source module jcard reader, direct ac-| 80 | 
| | |cess, or magnetic tape | | 
}-------- }-----~----------------------------— }----------------------- }--------~-------- { 
{SYSPRINT|Writing the storage map, listing, |printer, direct access, | 121 | 
| Jand messages {or magnetic tape | | 
~---~-~--}~----~-------------------------------}----------------------- }-----------------| 
| SYSPUNCH] Punching the object module deck |card punch, direct ac- | 80 | 
| | jcess, or magnetic tape | | 
~------- }------------------~----------------~}--------------------=--4+----------------4 
|SYSLIN |Output data set for the object mod- |card punch, direct ac- | 80 | 
| aa used as input to linkage editor]cess, or magnetic tape | | 
~----~--}~~-~-------------------------------- f--------------------=-- }-----------------4 
| SYSUT1 iwerk data sets used by the compiler |direct access or mag- |Determined by the] 
| {for compilation jnetic tape jcompiler during | 
-~------- | {compilation. Not] 
|SYSUT2 | | |Sspecified by the | 
| | | | programmer. | 
bascieene 5 ER On A eR EOE a EL a Bee en Pan nt Tae PRE UN SPE on ERO | iene eo ere eee eee ee 4 


|*The maximum number of records per block for the SYSIN, SYSPRINT, and SYSPUNCH data | 
] sets is determined by device type (see Table 12). The maximum number of records per | 
| block for the SYSLIN data set is either 1, 5, or 40, depending on which linkage editor| 

| 


} is used to read the data set. 


The following features of the compiler 
can be used only if the PRFRM compiler 
option is specified. For a more detailed 
description of the SPACE/PRFRM option, see 
"Compiler Options" in this section. 


If the PRFRM compiler option is speci- 
fied in the EXEC statement, the FORTRAN 
compiler can read or write blocked records 
for SYSIN, SYSPUNCH, SYSPRINT, and SYSLIN. 
Blocked records are grouped before they are 
written on a volume; the entire group is 
then written together, instead of writing 
each record individually. (Blocking for 
SYSUT1 and SYSUT2 is determined by the 
compiler; the programmer cannot’ specify 
blocking for these data sets.) Figure 27 
illustrates blocked records. 


| record | record | | record | record | 
eae ao ae i eee eee dees ee ee J 


Figure 27. Blocked Records 


Blocking saves space on the volume and 
increases the efficiency of the compiler 
because fewer I/O operations are performed. 
The programmer specifies whether records 
are blocked by the BLKSIZF subparameter in 


the DCB parameter of the DP statement (see 
"Creating Data Sets"). Records can be 
blocked only if they are read from or 


written on a direct access or magnetic tape 


36 


volume. The SYSLIN data set should ke 
blocked only if the object module is to be 
used as input to either of the linkage 
editor programs IEWLF440 or IEWLF880. 
Table 2 shows the record length and maximum 
number of records per block for each data 


set. 

If the SPACE compiler option is speci- 
fied, other data sets cannot ke concatenat- 
ed with the SYSIN data set. If the PRFRM 
compiler option is specified, other data 
sets can be concatenated with the SYSIN 


data set. 


If the SPACE compiler option is speci- 
fied, the SYSPRINT, SYSPUNCH, and SYSLIN 
data sets must be sequential data sets; 


only the SYSIN data set can be read as a 
member of a PDS. However, if the PRFRM 
compiler option is specified, the SYSPRINT, 


SYSPUNCH, and SYSLIN data sets can he 
written as members of partitioned data 
sets. 


Compiler Device Classes 


Names for input/output device classes 
used for compilation are also specified by 
the operating system when the system is 
generated. The class names, functions, and 
types of devices are shown in Table 3. 


Table 3. Device Class Names 
(eee Te fos 1 
|CLASS NAME|CLASS FUNCTIONS|DEVICE TYPE | 
}---------- }--~------------ }-------------- { 
| SYSSQ |writing, Jemagnetic tape| 
| |reading, | edirect access | 
| | backspacing | | 
| | (sequential) | J 
near saa as ea Tg ee 1 
| SYSDA |writing, jedirect access | 
j|reading, | | 
| | backspacing, | | 
| | updating | | 
| |records in | | 
| {place (direct) | | 
[---------- }--------------- }~------------- { 
| SYSCP |punching cards |ecard punch | 
}---------- }--------------- }-------------- { 
|A |SYSOUT output |*printer | 
| | | emagnetic tape] 
ee eee Beh oN a ng Earle eterno eared eae J 


The data sets used by the compiler must 
be assigned to the device classes listed in 
Table 4. 


Correspondence Retween Compiler 
ddnames and Device Classes 


jddname |Possible Device Classes | 
-------- }--------------------------------{ 
| SYSIN |SYSSQ, the input stream device| 
| | (specified by DD * or DD DATA), | 
| jor a device specified as the| 
| jcard reader | 
-------- }---~~---------------------------] 
| SYSPRINT|A,SYSSQ | 
-------- }~------------------------------- 
| SYSPUNCH| SYSCP1, SYSSQ, SYSDA | 
Sis a eee le | 
|SYSUT1 |SYSSQ,SYSDA | 
Baw eee ee eS | 
|SYSUT2 |SYSSQ,SYSDA 
}--------4~--~----~----------------------- { 
|SYSLIN |SYSSQ,SYSDA,SYSCP2 | 
ooo —1------------~--------~---------- { 
}+Both the SYSPUNCH and SYSLIN data _ sets| 


| cannot be written on the SYSCP device| 
| class in the same job step. | 


Compiler Options 


Options (Figure 28) may be passed to the 
compiler through the PARM parameter in the 
EXEC statement. The following information 
may be specified: 


1. Amount of main storage allocated to 
the compiler for this compilation. 


2. Maximum length of a FORTRAN record 
written under FORMAT control. 


3. Name assigned to the program. 


4. Whether the source program is coded in 
Binary Coded Decimal (BCD) or Extended 
Binary Coded Decimal Interchange Code 
(EBCDIC). 


5. Whether a list of source statements is 
printed. 
6. Whether an object module is punched. 


7. Whether 
printed. 


a map of the object module is 


8. Whether the compiler writes the object 
module on an output data set that 
resides on a direct access or tape 
volume. 


9. Whether any additional main storage is 
used either to compile a larger source 
module or to increase the speed of 
ccmpilation. 


10. Whether the source statements contain 
embedded blanks in variable names, 
statement numbers, constants and re- 
served words, whether meaningful 
blanks are not inserted between names 
and reserved words, and whether 
FORTRAN keywords are used as variable 
names in the source program. 


There is no specified order for compiler 
options. 


Figure 28 shows the compiler opticns. 
For most options, a default for the option 
is underlined. If an alternative is not 
underlined, the default is indicated in the 
explanation of that option. The defaults 
indicated in this publication are the 
standard defaults for FORTRAN(E). However, 
when the operating system is generated, the 
installation can change the defaults for 
compiler options. For more information 
about changing the defaults for compiler 
options, see the section "System Generation 
Macro-Instructions"™ in the System Genera- 
tion publication. Before using any of the 
default options, the programmer should 
determine the defaults for his installa- 
tion. For purposes of illustration, this 
publication assumes that the defaults cho- 
sen by the installation are the standard 
defaults. 
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, DECK ,MAP . LOAD 
, NODECKf 1, NOMAPf 1, NOLOA 


. nnnnk 
ae a PO POe ices {, LINELNG=zzz] [,NAME=xxxxxx Veescpre 


,SPACE\ f, ADJUST \'1,2,3 
Df |, PRFRMf \,NOADJUST 


, BCD , SOURCE 
, NOSOURCE 


oe ee ee ce ce ee cee a ete re a er ee a cere cee ee ee ee ee ee eee ee eae ee ee ee ee. 


{+I£ the information specified contains blanks, parentheses, or equal signs, it must not 
| be delimited by parentheses but by apostrophes. 


{}2I£ only one 
} equal signs, 


option is specified 


and it does not contain any blanks, parentheses or 


|?The maximum number of characters allowed between the delimiting apostrophes or paren- 
| theses is 40. The PARM parameter cannot occupy more than one card. 


eFigure 28. Compiler Options 


SIZE=yyyyyyy or  SiZmE=nnnnk: The SIZE 
option indicates the amount of main storage 
available for the compilation. The pro- 
grammer specifies a number YYYYYYVYr 
(yyyyyyy = 15360) or annnnkK (K=1024 and 
_15<nnnn<9999). If the option is not speci- 
fied or the number specified is less than 
15360, the compiler assumes 15360. If the 
number specified is greater than the amount 
available, processing continues, provided 
the amount available is at least 15360 
bytes when the SPACE option is specified, 
or at least 19456 bytes when the PRFRM 
option is specified. This figure assumes 
no blocking. If the input is blocked 
(e.g., by an input reader), a figure that 
is 160 times the blocking factor in bytes 


must be added to the 19,456 byte specifi- 
cation in the SIZE option. (See "SPACE or 
PRFRM"). 


LINELNG=222Z: 
the maximum 


The LINELNG option indicates 
length of a FORTRAN record 
written under control of a FORMAT state- 
ment. The specified number zzz (0<zzz<256) 
represents the maximum length of a FORTRAN 
record. During compilation, the length of 
all records is calculated using the coded 
information in the FORMAT statement. If 
the record length exceeds zzz, a warning is 
issued by the compiler. If this option is 
not specified, zzz is assumed to be 132. 
For example, assume that 144 positions are 
specified in the LINELNG option and the 
source statements 


WRITE(7,10) POINT, ALPHA,1I,J,K,L 


10 FORMAT (2F30.8,4130) 


are compiled. A warning is issued because 
the record iength indicated by the FORMAT 
statement is 180, and the LINELNG parameter 
indicates a maximum length of 144. 


NAME=xxxxxx: The NAME option specifies the 
name (xxxxxx) assigned to the module by the 


38 


DECK 


that the object module is 


| 
| 
the delimiting parentheses or apostrophes may be omitted. | 
| 
| 


programmer, where xxxxxx consists of 1 to 6 
alphameric characters, the first of which 
is alphabetic. If NAME is not specified, 
the compiler assumes the name MAIN for a 
main program or the name of the subprogram 
specified in the SUBROUTINE or FUNCTION 
statement for subprograms. If there is a 
conflict between the name given to the 
subprogram in the first statement of the 
source module and the name specified in the 
NAME option, the name specified in the 
SUBROUTINE or FUNCTION statement takes pre- 
cedence. The name appears in the source 
listing, storage map, and object module. 


BCD or EBCDIC: The BCD option indicates 
that the source module is written in Binary 
Coded Decimal; EBCDIC indicates Extended 
Binary Coded Decimal Interchange Code. 


SOURCE or _NOSOURCE: The SOURCE option 
specifies that the source listing is writ- 
ten on the data set specified by the 
SYSPRINT DD statement. The NOSOURCE option 
indicates that no source listing is writ- 
ten. A description of the source listing 
is given in the section "System Output." 


or NODECK: The DECK option specifies 
that the compiled source module (i.e., the 


object module) is written on the data set 
specified by the SYSPUNCH DD statement. 
NODECK specifies that no object module is 
written. A description of the object 
module is given in the section "System 
Output." 

MAP or NOMAP: The MAP option specifies 


that a storage map of the object module is 
written on the data set specified by the 
SYSPRINT DD statement; the option NOMAP 
specifies that no map is written. A de- 
scription of the map is given in the 
section *System Output.” 
LOAD or NOLOAD: The LOAD option indicates 
written on the 
set specified by the SYSLIN DD state- 
This option must be used if a 


data 
ment. 


cataloged procedure to compile, link edit, 
and execute is used. A description of the 


object module is given in the section 
"System Output". 
The NOLOAD option indicates that the 


object module is not written on the SYSLIN 
data set. When NOLOAD is specified, the 
compiler automatically returns a condition 
code of 12. This option must not be used 
if a cataloged procedure to compile, link 
edit, and execute is used. If NOLOAD and 
DECK are specified, the SYSPUNCH data set 
may be used as input to the linkage editor. 


If the LOAD and DECK options are speci- 
fied, the object module is written on the 
two data sets, indicated by the SYSLIN and 
SYSPUNCH DD statements. 


SPACE or PRFRM: When the PRFRM option is 
specified, the size of a source module is 
limited. (See Table 14.) By specifying 


the SPACE option and more than 15360 bytes 
in the SIZE option, the limit for the size 
of the source module is increased. 


The PRFRM option indicates that excess 
main storage is allocated for faster compi- 
lations rather than larger source modules. 
The PRFRM option must be specified if any 
of the compiler data sets SYSIN, SYSPRINT, 
or SYSPUNCH are allocated to non-unit- 
record devices (e.g., priority schedulers). 
To block records for the compiler data sets 
SYSIN, SYSPRINT, SYSPUNCH, and SYSLIN, or 
to write the SYSPRINT, SYSPUNCH, and SYSLIN 
data sets as members of partitioned data 
sets, the PRFRM option must be specified. 
Other data sets can be ccncatenated with 
the SYSIN data set only if the PRFRM option 
is specified. (Note: Only data sets that 
reside on the same type of device can be 
concatenated.) 


To ensure that these options improve the 
operation of the compiler, at least 19456 
bytes should be allocated to the compiler 
in the SIZE option. If less than 19456 
bytes are specified or if less than 19456 
bytes are available and the PRFRM option is 


specified, processing continues using the 
SPACE option and the amount of storage 
available. If blocked input and output is 


specified with the PRFRM option, the SIZE 
option must specify enough storage to 
contain blocked records. Any storage not 
used by the PRFRM option is used to compile 
a bigger source module and increase the 
size of the buffers which decreases the 
number of I/O operations and increases the 
speed of the compiler. 


ADJUST or NOADJUST: The ADJUST option 
indicates that the source module contains 
embedded blanks, contains no meaningful 


blanks, and uses keywords as variable names 


in the source statements. With the ADJUST 


option, the source statement can contain 
embedded blanks. For example, the source 
statements 


FOR MAT (1H , 110) 


DELTA T=T /INC 


are valid. With the ADJUST option, the 
source statement need not contain meaning- 
ful blanks. For example, the source state- 
ments 


DOUBLEPRECISIONFUNCTIONDPROD (X, Y) 
DIMENSIONAEC (10) 


are valid. With the ADJUST option, the 
source can contain FORTRAN keywords (GO, 
DO, IF, READ, FIND, WRITE, etc.) used as 
variable names. For example, the source 
statements 


IF(IF) 20,30,40 
READ=A+B+C 


are valid. 


If NOADJUST is specified, the source 
module must not contain embedded blanks, 
must contain meaningful blanks, and must 
not contain FORTRAN keywords used as vari- 
able names. However, with the NOADJUST 
compiler option, source modules are com- 
piled faster. For example, the previous 
source statements must be written as fol- 
lows to make them acceptable to the compil- 


er when the NOADJUST option is used. 


FORMAT(1H ,1I10) 

DELTAT=T/INC 

DOUBLE PRECISION FUNCTION DPROD(X,Y) 
DIMENSION ABC(10) 

IF (IFX) 20,30,40 

READX=A+BtC 


Multiple Compilation Within a Job Step 


Several compilations may be performed 
within one job step, if the conditions 
shown in Table 5 are met. 
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Table 5. Conditions for Multiple Compila- 
tion 
Same Ganins 5 RRR CREE Roa aa= Ye ee ne 1 
jOption|Input Stream |Source Modules | 
| | Device |Reside On | 
}------ }---~---~------ }------------------- { 
| |card reader jinput stream | 
| }-------------- }+------------------ { 
[SPACE | jinput stream | 
| | tape }------------------- { 


input stream 


| | 
[PRFRM }[-----~-~---——--- j )tape | 
| | tape | )card reader | 
| | | \direct access | 
bogeceu Bess he sis Seo PS et SS es aoe J 


The compiler recognizes the FORTRAN END 
statement in a source deck, compiles the 
program, and determines if another source 
program follows the END statement. If 
there is another source program, another 
compilation is initiated (see Figure 29). 


/7/JOBRA JOB ,*RBLACK' 
//STEP1 EXEC FORTEC 
//FORT.SYSIN DD * 

1 READ A9 107A, B,C 


END 
SUBROUTINE CALC 
END 
/* 
Within a 


Figure 29, Multiple Compilation 


Job Step 


Only one EXEC statement may be used to 


initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations in a job step. These options 


are then used for all compilations in the 
batched compilation. 


A main program compiled first in a 
multiple compilation 1s given the name 
specified in the NAME option. Any  subpro- 


gram in a multiple compilation is given the 
name of the subprogram in the first card of 
the source subprogram. For example, in the 
multiple compilation, 
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//MULTCOMP JOB ,'FRANK KELLY‘ 
// EXEC FORTEC, PARM. FORT='NAME=GAMMA‘ 
//FORT.SYSIN DD * 

SUBROUTINE ALPHA 


END 
FUNCTION BETA(X,Y,2Z) 


END 
7* 


the first module is given the name ALPHA 
and the second is given the name BETA. 


Any main program after the first program 
is given the name MAIN. Moreover, if the 
NAME option is not specified and the first 
module is a main program, the first program 
is also given the name MAIN. For example, 
in the multiple compilation, 


47 /MULCOM JOB 
// EXEC FORTEC 
//FPORT.SYSIN DD * 

READ (1,10) ALP, BETA 


END 
SUBROUTINE INVERT (A,B) 


END 
READ(5)P,0,R 


END 
/* 


both the first and third programs are given 
the name MAIN. The second program is 
assigned the name INVERT. 


When a multiple compilation is per- 
formed, the SYSLIN or SYSPUNCH data set 
contains all the object modules because 
only one SYSLIN DD statement may be sup- 


plied for compiler output. The object 
modules are placed sequentially on the 
volume. 


r T 7 
| Object Module 1 | Object Module 2 | ... 
as ee Be eee A See J 


LINKAGE EDITOR PROCESSING 


The linkage editor processes object 
modules, resolves any references to subpro- 


grams, and constructs a load module. To 
communicate with the linkage editor, the 
programmer supplies an EXEC statement and 
DD statements that define all required data 
sets; he may also supply linkage editor 


control statements. 


Linkage Editor Name 


Three linkage editor programs are avail- 
able with the operating system. The pro- 
gram names for the three linkage editors 
and the minimum storage in which they are 
designed to operate are: 


IEWLE150 15,360 bytes 
IEWLE180 18,432 bytes 
IEWLE440 45,056 bytes 


All facilities described for the linkage 
editor in this publication are available 
with all three linkage editors, except that 
blocking the primary input primary output 
is available only with the higher-level 


linkage editor, IEWLE440. 
For simpler programming, the linkage 
editors have been assigned the alias pro- 


gram name IEWL. If the programmer speci- 


fies the parameter 
PGM=IEWL 


in the EXEC statement, the highest level 
linkage editor provided in the 
installation's operating system iS exe- 
cuted. If he wants to execute a specific 
linkage editor, he must specify the specif- 
ic program name of that linkage editor. 


Linkage Editor Input and Output 


There are two types of input to the 
linkage editor: primary and secondary. 
Primary input consists of a sequential data 
set that contains object modules and lin- 
kage editor control statements. Any exter- 
nal references among object modules in the 
primary input are resolved by the linkage 
editor as the primary input is processed. 


Furthermore, the primary input contains 
references to the secondary input. These 
references are linkage editor control 


statements and/or FORTRAN external referen- 
ces in the modules. 


Secondary input resolves these refer- 
ences and is separated into two types: 


automatic call library and additional input 
specified by the programmer. The automatic 
call library should always be the FORTRAN 
library (SYS1.FORTLIB), which is the PDS 
that contains the FORTRAN library subpro- 
grams. Through the use of DD statements 
that omit the ddname, the automatic call 
library can be concatenated with other 
partitioned data _ sets. Three types of 
additional input may be specified by the 
programmer: 





e An object module used as the rain 


program in the load module being con- 
structed. This object module, which 
can be accompanied by linkage editor 


control statements, is either a member 
of a PDS or is a Sequential data set. 
The first record in the primary input 
must be a linkage editor INCLUDE con- 
trol statement that tells the linkage 
editor to insert the main program. 


e An object module or a load module used 
to resolve external references made in 
another module. The okject module, 
which can be accompanied by linkage 
editor control statements, iS a sequen- 
tial data set or is a member of a PDS. 
The load module, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
statement that defines the data set 
must be given to include the module. 


e A module used to resolve external ref- 
erences made in another module. The 
load module or object module (which can 
be accompanied by linkage editor con- 
trol statements) is a member of a PDS. 
A linkage editor LIBRARY control state- 
ment that defines the data set to the 
linkage editor must be given to include 
modules from the data set in the load 
module. 


In addition, the secondary input can con- 
tain external references and linkage editor 


control statements. The automatic call 
library and any of the three types of 
additional input may be used to resolve 


references in the secondary input. 


of the linkage editor con- 
map, and 


The output 
sists of the load module, module 


error messages. The load module is always 
placed in a PDS. Error messages and the 
optional module map are written on an 
intermediate storage device or a printer. 


In addition, a work data set is required by 
the linkage editor to do its processing. 
Figure 30 shows the I/0 flow in linkage 
editor processing. 
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Table 6. Linkage Editor ddnames 
(HSS =s ose ir eS ee ee Toe ee ee ae ne 7 
| ddname | FUNCTION | DEVICE REQUIREMENTS | 
}-------------- }~------------------------------------------ }---------------------------- { 
| SYSLIN |Primary input data, normally the output of |*direct access | 
| jthe compiler Jemagnetic tape | 
| | Jecard reader | 
}-------------- a { 
| SYSLIB jJautomatic call library (e.g., SYS1.FORTLIB)|edirect access | 
~------------- a Se 
{| SYSUT1 |work data set jedirect access | 
~------------- }-----~---------- ~~ === === === - === 22-52 f= $22 2-58-25 - === 4 
| SYSPRINT |diagnostic messages | sprinter 
| | Jeintermediate storage device] 
~----~-------- }-----------------------~-------------------}----------------------------4 
| SYSLMOD Joutput data set for the load module |*direct access | 
}-------------- fiona ---- === --- === == === == === =f += +22 { 
Juser-Specified|additional libraries and object modules j*direct access | 
| | Jemagnetic tape | 
beceesweteoows = ae on Re ee en Rn ae eon nem La ny ORR Eee a Pete Soe eee a J 
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Figure 30. Linkage Editor Input and Output 


Linkage Editor ddnames and Device Classes 


The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific 


ddnames (similar to the ddnames used by the 
compiler). The ddnames, functions, and 
requirements for data sets are shown in 
Table 6. 


Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data sets. 
(The other data sets are partitioned or 


sequential.) The ddname for the DD state- 
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ment that retrieves any additional librar- 


ies iS written in INCLUDE and LIBRARY 
statements and is not fixed by the linkage 
editor. 


In addition, if one of the higher level 
linkage editors (program name: IEWLF440 or 
IEWLF880) is used, the SYSLIN data set can 
contain blocked records. The linkage edi- 
tor can then accept a blocked SYSLIN data 
set that is created by the compiler. The 
record length for the SYSLIN data set is 80 
bytes. With the linkage editor IEWLF440 
the maximum number of records per block is 
5. With IEWLF880, the maximum number of 
records per block is 40. 

The device classes used by the compiler 
(see Table 3) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to _ the 
device classes listed in Table 7. 





Table 7. Correspondence Between Linkage 
Editor ddnames and Device Classes 

a iC ie ema ata To a ee ee ee 1 
| ddname | Possible Device Classes | 
-~---~-------- }---------------~----~-----] 

| SYSLIN |SYSSQ,SYSDA,or the input | 
| [stream device (specified | 
| {by DD* or DD DATA) or a | 
| | device specified as the | 
l |card reader | 
~------------- }--~-----------------------] 

| SYSLIB | SYSDA | 
~------------- }--------------------------] 

| SYSUT1 | SYSDA | 
p——~-~--------~ fonna anna nnn n= === = { 
j S¥YSLMOD | SYSDA | 
~------~------ ------------~-------------] 

| SYSPRINT | A, SYSSQ | 
}-------~------ fo-----~-~----------------- { 
j user-specified|SYSDA,SYSSQ | 
|W eieih Siena eee Bee ee ee ee ep eee en eee J 


Additional Input 


The INCLUDE and LIBRARY statements are 
used to specify additional secondary input 
to the linkage editor. Modules specified 
by neither INCLUDE nor LIPRARY statements 
nor contained in the primary input are 
retrieved from the automatic call library. 


INCLUDE Statement: 


oa. a et ee ee 1 
| Operation |Operand | 
}---------}------------------------------- { 
JINCLUDE |ddnamel[ (member-name | 
| | (,member-name}...)] | 
| {| (,ddnamel (member-name | 
| } (,member-name)...)]]... | 
 ieagetee Enon eee Bi oe eat te ee ee Re ele J 


The INCLUDE statement is used to include 
either members of additional libraries 
(PDS) or a sequential data _ set. The 
"ddname"™ specifies a DD statement that 
defines either a PDS containing object 
modules and control statements or just load 
modules, or defines a sequential data set 
containing object modules and linkage edi- 
tor control statements. The "member name" 
is the name of a member of a PDS and is not 
used when a sequential data set is speci- 
fied. 


inserts the object 
output load 
statement is 


The linkage editor 
module or load module in the 
module when the INCLUDE 
encountered. 


LIBRARY Statement: 


Re re ee ee ey ny Fe 1 
| Operation |Operand | 
tate ad aa ee ee eS 4 
|LIBRARY |ddname(member-name | 
| | (,member-namej...) | 
| | (,ddname (member-name | 
| | {,member-name)...)]... | 
tse ee oe fa efoto URE Soe ear Pe RP RE OR APRA ae ROE 4 


The LIBRARY statement is used to include 
members of additional libraries. The 
"ddname" must be the name of a DD statement 
that specifies a PDS that contains either 
object modules and linkage editor control 
statements, or just load modules. The 
"member name" is an external reference that 
is unresolved after primary input process- 
ing is complete. 


The LIBRARY statement differs from the 
INCLUDE statement: external references 
specified in the LIBRARY statement are not 
resolved until all other processing, except 
references reserved for the automatic call 


library, is completed by linkage editor. 
(INCLUDE statements resolve external refer- 
ences when the INCLUDE statement is encoun- 
tered.) 


Example: Two subprograms, SUB1 and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIB, 
is used to resolve external references to 
the symbols X, Y, and 2. Each of the 
object modules is placed in a sequential 
data set by the compiler, and passed to the 
linkage editor job step. 


Figure 31 shows the control statements 
for this job. (Note: Cataloged procedures 
are not used in this job.) In this job, an 
additional library, MYLIB, is specified by 
the LIBRARY statement and the ADDLIB DD 
statement. SUB1 and SUB2 are included in 
the load module by the INCLUDE statements 
and the DD statements DD1 and DD2. The 
linkage editor input stream, SYSLIN, is two 
concatenated data sets: the first data set 
is the sequential data set &GOFILE which 
contains the main program; the second data 
set is the two INCLUDE statements and the 
LIBRARY statement. After linkage editor 
execution, the load module is piaced in the 
PDS PROGLIB and given the name CALC. 


Linkage Editor Priority 


If modules with the same name appear in 
the input to linkage editor, the linkage 
editor inserts only one of the modules. 
The following priority for modules is es- 
tablished by the linkage editor: 


1. Modules appearing in the SYSLIN data 


set or modules identified by INCLUDE 
statements. 
2. Modules identified by the LIBRARY 
statement. 
3. Modules appearing in the SYSLIB data 
set. 
For example, if a module named SIN 


appears both in a module identified in a 
LIBRARY statement and in the automatic call 
library, only the module identified in the 
LIBRARY statement is inserted in the output 
load module. 


If modules with the same name appear in 
a Single data set, only the module encoun- 
tered first is inserted in the output load 
module. 
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ee Pc ee ee a ie ee ER ONE oe aS 
| 


//JOBX JOB 
| //STEP1 


//SYSLIN DD 
//SSYSIN DD 
Source module for MAIN 

b 


/ 
//STEP2 EXEC 


//SYSLIN DD 

S/SSYSIN DD * 
Source module for SUB1 

/* 

/ 


/STEP3 EXEC 


es ik A ee ee Sc ee eee SL ee OS ets ee 


|//SYSLIN DD 


| /7SYSIN DD * 

] Source module for SUB2 
| /+ 

]7/STEP4 EXEC PGM=TEWL 


| ; 
Z 
| 

|//SYSLIB DD 
|//SYSLMOD DD 


|77ADDLIB DD DSNAME=MYLIB, DISP=OLD 


|//DD1 DD DSNAME=*.STEP2.SYSLIN, DISP=OLD 
| //DD2 DD DSNAME=*. STEP3. SYSLIN, DISP=OLD 
|//SYSLIN DD DSNAME=*.STEP1.SYSLIN, DISP=OLD 
|// DD * 


| INCLUDE DD1 

| INCLUDE DD2 

| LIBRARY ADDLIB(X,Y,2) 
L 


Figure 31. 


Multiple Link Editing Within a Step 


Just as the compiler can perform several 
compilations within a procedure step or job 
step (batched compilation), the linkage 
editor can produce several load modules 
within a single procedure step or job step. 
Another linkage editor control statement, 
the NAME statement, is used to delimit the 
input for one load module from the input 
for another load module. 


Re eg a a a ee 1 
j Operation] Operand | 
eS e oS ae te ee ee eee | 
| NAME |member-name[(R)] | 
eRe yma ie beweseemseer ea eee See 4 


The NAME statement is placed after the 


last object module or linkage editor con- 
trol statement used as input to a load 
module. Any modules or control statements 


Ky 


PGM=IEJFAAAO, PARM="NAME=MAIN, LOAD" 
DSNAME=GOFILE, DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEJFAAAO, PARM=" NAME=SUB1,LOAD' 
DSNAME=§SUBPROG1 , DISP=(, PASS) , UNIT=SYSSOQ 
PGM=TEJ FAAAO, PARM= * NAME=SUB2, LOAD‘ 


DSNAME=&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ 


DSNAME=SYS1.FORTLIB, DISP=OLD 
DSNAME=PROGLIB (CALC) , UNIT=SYSDA 


cs ces cen ee ST etme Se SON emere ES es A cee Ge ee eee em cee eos Mane eee coe ee ees cares tt eee eee ee ont 


Linkage Editor Example Using INCLUDE and LIBRARY Statements 


following a NAME statement are assumed to 
be part of the next load module being 
constructed. A NAME statement can be 
placed only in the primary input: any NAME 
statements in the secondary input are 
ignored. 


All of the resulting load modules from a 
batched linkage editor execution are placed 
in the library (PDS) specified in the 
SYSLMOD DD statement. The member name for 
each of the resulting load modules is 
specified as “member name" in the NAME 
statement. For example, if the primary 
input for one of the load modules is 
followed by a NAME statement containing the 
member name XALPHA and the SYSLMOD DD 
statement for the linkage editor step spec- 
ifies the PDS MYLIB, the resulting load 
module is assigned the member name XALPHA 


and is placed in the PDS MYLIB. The 
SYSLMOD DD statement should not contain a 
member name. However, if the SYSLMOD 


statement contains a member name, that 
member name must be identical to the member 
name specified in the first NAME statement 
appearing in the primary input. 


The NAME statement can be used to speci- 
fy that a load module currently residing in 
a PDS is to be replaced by the load module 
constructed from the input immediately 
preceding the NAME statement. Replacement 
is specified by coding (R) following the 
member name in the NAME statement. 


When several load modules are created in 
a Single step (multiple link editing), the 
options specified in the FXEC statement for 
that step apply to each load module created 
in that step. 


Example: An object module resides on a 
sequential data set PROGX. A load module 
is to be constructed from this module, 
uSing the FORTRAN library anda private 
library MYLIB to resolve external refer- 


module. Another object 
module resides on a sequential data set 
PROGY, and a load module is to be con- 
structed from this object module using the 
same library to resolve external refer- 
ences. Both load modules are to be placed 
in the library PROGLIB. The first module 
is to be assigned the member name FUNTST; 
the second module is assigned the member 
name SUBTST. 


ences within the 


The following text shows the job control 
statements and the position of INCLUDE, 
LIBRARY, and NAME linkage editor statements 
necessary to perform the job. 


//JOB2 JOB 108,'J.JONES' 

//STEP EXEC PGM=IEWL 

7/SYSLIB DD DSNAME=SYS1.FORTLIB, DISP=OLD 
//SYSLMOD DD DSNAME=PROGLIP, DISP=OLD 


//DD1 DD DSNAME=PROGX, DISP=OLD 
7/DD2 DD DSNAME=PROGY, DISP=OLD 
//ADDLIB DD DSNAME=MYLIB 
7/SYSLIN DD * 

INCLUDE DD1 

LIBRARY ADDLIB(X, Z) 

NAME FUNTST 

INCLUDE DD2 

LIBRARY ADDLIB(Y, Z) 

NAME SUBTST 


The JOB statement JOB2 defines the job, 
and the EXEC statement STEP instructs’ the 
operating system to execute the program 
IEWL. The DD statement SYSLIB tells’ the 
linkage editor that the FORTRAN library is 
the automatic call library. The SYSLMOD DD 


statement tells the 
both modules are 
PROGLIB. 


linkage editor that 
written in the PDS 


The first INCLUDE statement and the CD 
statement DD1 tell the linkage editor that 


the first load module is to contain the 
object module that resides on the sequen- 
tial data set PROGX. The first LIBRARY 
Statement tells linkage editor that the 


references to X and Z in this module are to 
be resolved by the library MYLIB. The 


first NAME statement tells the linkage 
editor that the resulting module is 
assigned the member name FUNIST. The con- 


trol statements are similar for the load 


module with the member name SUBTST. 


Other Linkage Editor Control Statements 


In addition to the LIBRARY, INCLUDE, and 
NAME statements, other contrel statements 
are available for use with the linkage 
editor. These statements enable the user 
£0; specify different names for load 
modules (ALIAS), replace modules within a 
load module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 
In addition, two statements (OVERLAY and 


INSERT) enable the programmer to overlay 
load modules. For a detailed description 
of these control statements, see the sec~ 


tion "Specifying Additional Processing" in 
the Linkage Editor publication. 


Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
most applicable to FORTRAN programming are: 


PARM MAP , LET 
PARM.procstepf=(| XREF ||, XCAL| [, NCAL] 


[, LIST] [, OVLY]) 


MAP or _XREF: The MAP option instructs 
linkage editor to produce a map of the load 
module; this map indicates the relative 


location and length of main programs and 
subprograms. If XREF is specified, a map 
of the load module is produced and a 


cross-reference list indicating all exter- 
nal references in each main program and 
Subprogram is generated. If neither option 
is specified, neither the map nor _ the 
cross-reference listing is generated. De- 
scriptions of the map and cross-reference 
listing are given in “System Output." 


XCAL: The LET 
mark the 


LET or 


LET or XCAL: option instructs 
linkage editor to 


load module 
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ready for execution even though error con- 
ditions were found. The xXCAL option 
informs the linkage editor to mark the load 
module executable even though valid exclu- 
Sive branches are made between modules that 
overlay each other. 


NCAL: The NCAL option informs linkage 
editor that the libraries specified in the 
SYSLIB DD statement or specified in LIBRARY 
statements are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) The subprograms in the 
libraries are not inserted in the load 
module. However, the load module is marked 
executable. 


When an object module will be link 
edited again prior to its use in execution 
and that module contains either 


1. An input/output statement (READ, 
WRITE, BACKSPACE, REWIND, END FILE), 


2. A STOP/PAUSE statement, 


3. Any service subprogram (SLITE, SLITET, 
OVERFL, DVCHK, EXIT, DUMP, PDUMP), or 


4. Any one of the following library sub- 
programs 
DEXP DLOG DLOG10 DSIN 
DCOS. DSORT DTANH EXP 
ALOG ALOG10 SIN Cos 
SQRT TANH 


NCAL must be specified. An I/O statement, 
a STOP or PAUSE statement, any service 
subprogram, or any of the above library 
subprograms require FORTRAN load module 
execution routines. These routines are 
inserted by the linkage editor, and must be 
inserted only once in any load module. 
When the final linkage editor processing 
for the module is performed, NCAL should 
not be specified and the load module execu- 
tion routines will be inserted. 


LIST: The LIST option indicates that link- 
age editor control statements are listed in 
card-image format on the diagnostic output 
data set. 


OVLY: The OVLY option indicates to the 
linkage editor that an overlay structure is 





to be constructed by the linkage editor. 
This option must be used if an OVERLAY 
linkage editor control statement is used. 


If an OVERLAY statement is not used, the 
OVLY option is ignored. For more informa- 
tion about overlay structures see the Link- 
age Editor publication. 


Other options can also be specified for 
the linkage editor. For a detailed de- 
scription of all linkage editor options, 
see the Linkage Editor publication. 
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LOAD MODULE EXECUTION 


The ddnames used in executing load 
modules must adhere to the format specified 
by IBM. When the system is generated, 
device names are assigned by the operating 
system and the installation; the programmer 
chooses devices by specifying either the 
installation or operating system names. 


Program Name 


When "PGM=program name" is used to indi- 
cate the execution of a load module, the 
module must be in either the system library 
(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a 
JOBLIB DD statement, indicating the name of 
the private library, must be supplied to 
concatenate the private library with the 
system library. For example, assume that 
the load modules CALC and ALGBRA in the PDS 
MATH and the load module MATRIX in the PDS 
MATRICES are executed in the following job: 


7/JOBN JOB 00, JOHNSMITH 

7/JOBLIB DD DSNAME=MATH, DISP= (OLD, PASS) 
// DD DSNAME=MATRICES, DISP=(OLD, PASS) 
//STEP1 EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library, by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


Execution ddnames 


In the source module, data set reference 
numbers are used to identify data sets. 
Data sets processed by a FORTRAN load 
module must be either sequential or direct 
and must be defined by DD statements. The 
correspondence between a data set reference 
number and a DD Statement is made by a 
ddname. 


The ddname format that must be used for 
load module execution is: 


FTXXFyyy 


where: 
xx is the data set reference number. 
yyy is a FORTRAN sequence number. 


Data Set Reference Number (xx): When the 
system is generated, the upper ljimit for 
data set reference numbers is specified by 
the installation; it must not exceed 99. 
This upper limit does not correspond to the 
number of input/output devices. 


If an installation specifies an upper 
limit of 99 for its data set reference 
numbers, the ddnames and data set reference 


numbers correspond as shown in Table 8. 
Note that 0 is not a valid data set 
reference number. 

Table 8. Load Module ddnames 

Potees oe ee fe ee 1 
| Data Set Reference Numbers | ddnames_ | 
}----------------------------- f----------- { 
| 1 | FTO1Fyyy | 
| 2 | FrozFyyy | 
| : : 
| ; | : | 
| | : | 
: | : | 
i LS j FTi3Fyyy | 
| | : | 
| : | ; | 
| : | : | 
| 99 | FT99Fyyy | 
ORES oie ee ae ped cer ee ey erga Sore Re mE f ee eset  neGIED J 


FORTRAN Sequence Number (yyy): The FORTRAN 
sequence number refers to sequential data 
sets that are written using the same data 
set reference number. 


For sequential or partitioned data sets, 
the first FORTRAN sequence number is always 


001. This sequence number changes only 
when an END FILE statement is executed and 
the program later executes a READ or WRITE 


statement using the same data set reference 
number. For example, the following state- 
ments, executed in the order shown, cause 
the FORTRAN sequence number to change. 


WRITE(10,5)A,B,C 


END FILE 10 


WRITE(10,5)X,Y,2Z 


For the first WRITE, a DD statement 
identified by the ddname FT10F001 defines 
the data set. For the second WRITE, a DD 
statement identified by the ddname FT10F002 
defines the data set. 


For direct data sets, the FORTRAN 
sequence number is always 001. Attempting 
to execute an END FILE statement for a 
direct data set is ignored. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, READ/WRITE sequence occurs. If the 
FORTRAN statements in the following example 
are executed, DD statements with the 
ddnames indicated by the arrows must be 
supplied for the corresponding WRITE state- 
ments. 


Statements ddnames 
15 FORMAT (3F10.3,17) 
10 FORMAT (3F10.3) 

DO 20 I=1,J7 


20 WRITE (17,10)A,B,C Se ae ee > FT17F001 
ENDFILE 17 
DO 30 I=1,N 


30 WRITE(17,15)X,Y,2,K ---—------ > FT17F002 
END FILE 17 
DO 4O I=1,M,2 


40 WRITE(17,10)A,B,C -—---------- > FT17F003 


ENDFILE 17 


If the preceding instructions are used 
to write a tape, the output tape has the 
appearance shown in Figure 32. 
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records 





| 
| tapemark 
| 
| 


| 
1A.B.C1, By cl sate 


1a,B, CLIX. ¥sZsK 1X4 ¥, 2K] 


| 

| Written using DD 

| statement FT17F001 
| 


Figure 32. 


Retrieving Data Sets Written with Varying 
FORTRAN Sequence Numbers 


Retrieving the data sets shown in Figure 
32 depends on when the data set was created 
and if it was cataloged when it was creat- 
ed. There are four distinct conditions: 


1. The data set is created in the job 
step in which it is retrieved. 


2. The data set is created in one job 
step and retrieved in another job 
step; both steps in the same job. 


3. The data set was created and cataloged 
in a previous job. 


4. The data set was created in a previous 
job, but was not cataloged. 


To retrieve the data sets shown in 
Figure 32, the data set Sequence numbers in 
the LABEL parameter must be supplied in DD 
statements used to write the data _ sets. 
The LABEL parameter is described in detail 
in the section "Creating Data Sets". 


we 
iaBne ((aceaas bes dauedes nna {oat 


The "data set sequence number" indicates 
the position of the data set on a sequen- 
tial volume. This sequence number is 
cataloged along with the remainder of the 
information in the DD statement. For the 
first data set on the volume, the data set 
sequence number is 1; for the second, it is 


2; etc. 


If one of the data sets shown in Figure 
32 is read in the same job step in which it 
is created, an END FILE statement and then 


a REWIND statement must be issued after the 


last WRITE instruction. The FORTRAN 
sequence number is incremented by the exe- 
cution of the END FILE statement if the 
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Written using DD 
statement FT17F002 






: 1X, ¥, 24K] 1B/B,C]A,E,C] bee 





Written using DD 


| 

| 

| 

| 

T | 
[A,B,C] | eve | 
| 

| 

| 
statement FT17F003 | 
| 


Tape Output for Several Data Sets Using Same Data Set Reference Number 


data set is to be read by the same data set 
reference number. DD statement FT17F004 is 
used to read the data set. For example, 
the following DD statements are used to 
write the three data sets shown in Figure 
32 and then read the second data set: 


//FT17F001 DD UNIT=TAPE, LABEL=(,NL), 


//¥FT17F002 DD UNIT=TAPE, LABEL=(2,NL), Xx 
J/ VOLUME=REF=*.FT17F001 
//¥T17F003 DD UNIT=TAPE, LABEL=(3,NL), Xx 
// VOLUME=REF=*.FT17F001 
//ET1ITFOO4 DD VOLUME=REF=*.FT17F002, X 
1/ DISP=OLD, LABEL=(2, NL) 


The VOLUME parameter indicates that the 
data set resides on the same volume as the 
data set defined by DD statement FT17F001. 
DD statement FT17F004 refers to the data 
set created by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18, then, the DD 
statement FT17F004 is replaced by the 
statement 


7/¥FT18F001 DD VOLUME=REF=*.FT17F002, X 
Jf DISP=OLD 


If the data sets shown in Figure 32 are 
cataloged for later reading, the following 
DD statements should be used to write the 
data sets 


//FT17TFO01 DD DSNAME=N1, LABEL=(1,NL), X 
1/ DISP=(, CATLG) 

//FT1L7F002 DD DSNAME=N2,LABEL=(2,NL), Xx 
4/ DISP=(, CATLG) , VOLUME=REF=* .FT17F001 
//¥FT17F003 DD DSNAME=N3,LABEL=(3,NL), x 
of DISP={, CATLG) , VOLUME=REF=*. FT17F002 


The only information necessary to retrieve 
the data sets is the DSNAME and the DISP 
parameters. (The data set Sequence number 


is stored in the catalog and is accessible 
to the control program.) For example, if 
data set reference number 10 is used to 
retrieve the data set Ni, the following DD 
statement is used to retrieve the data set. 


//¥T10F001 DD DSNAME=N1, DISP=OLD 


If the data set is not cataloged and 
then retrieved ina later job, the VOLUME 
and LABEL information is needed to retrieve 
the data.set. When the data set is creat- 
ed, the programmer must assign it to a 
specific volume. 


Assume the data sets shown in Figure 32 
were aSSigned the volume identified by the 
volume serial number Aii111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 in a later job, the 
following DD statement is needed to 
retrieve the data set 


//¥T10F001 DD VOLUME=SER=A11111,DISP=OLD, X 
// LABEL= (2,NL) , UNIT=SYSSQ 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
for sequential data sets by the control 
program. For direct access data _ sets, 
REWIND and BAC KSPACE operations are 
ignored. 


A REWIND statement instructs the control 
program to position the volume on the 
device so that the next record read or 
written is the first record transmitted for 


that data set reference number on that 
volume, irrespective of data set sequence 
numbers. 

For unblocked records, a BACKS PACE 


statement instructs the control program to 
position the volume so that the last record 
read or written is transmitted next. For 


blocked records, the result of an execution 
of a BACKSPACE statement is unpredictable. 


Error Message Data Set 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages can 
be written on a data set. (The standard 
default for FORTRAN (E) is data set ref- 


erence number 6.) For more information 
about asSigning this data set reference 
number, see the section "System Generation 


Macro-Instructions™ in the 
tion publication. 


System Genera- 


The programmer must define a sequential 
data set, using a DD statement with the 
ddname for that data set reference number. 


This data set should be defined using the 
SYSOUT=A parameter. If the error message 
data set is on tape, the DD statement 


Should contain BLKSIZE=133 and RECFM=UA. 
If this data set is not defined and an 
error condition is encountered during the 


execution of the job step, the job step is 
terminated and a condition code of 16 is 
issued. 


Execution Device Classes 


For load module execution, the program- 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 3). However, additional names for 
specific devices and device classes can be 
assigned by the installation where the 
system is generated. The programmer can 
choose which device to use for his data 
sets, and specify the name of that device 
or class of devices to which that device 
belongs in the UNIT parameter of the DD 
statement. 


However, a direct access device must be 
used for a data set which is defined (by 
the DEFINE FILE statement) as a direct 
access data set in the FORTRAN program. 
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CREATING DATA SETS 


Data sets are created by specifying 
parameters in the DD statement or by using 
a data set utility program. This section 
discusses the use of the DD statement to 
create data sets. (The Utilities publica- 
tion discusses data set utility programs.) 
No consideration is given to optimizing I/O 
operations; this information is given in 
the section "Program Optimization." 


Examples of DD statements used to create 
data sets are shown in Figure 33. 


To create data sets, the DSNAME, UNIT, 
VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB 
parameters are of special significance (see 
Figure 34). These parameters specify: 


DSNAME - 


UNIT = 


VOLUME - 


LABEL ~- 


HiSP = 


SYSOUT - 


DCB - 


Sample Coding Form 











name of the data set 


class and number of devices used 
for the data set 
data set 


volume on which the 


resides 
label specification 


the status of the data set at the 
beginning of the step and the 
disposition of the data set after 
the completion of the step 


ultimate device for printer data 
sets 
tape density, record format, 


record length 














rasaatirendrensstancrathithaadcactihen mtlmsmraddbama madeline 





XIAP | 2 Catg 


//FT31FOO1 


g F, ™P £10 


DD DD_DSNAME= 








LM, 
// 


potiirid 





DCB=(RECF 


=MATRIX9D1§P= (NEWSCATLG) 9 LABEL= CoSLEXPDT=67, 67031) 95 1 
i, UNIT= DACLASS »VOLUME=\( PRIVATE »RETAINSSER=AAG9)>,.. 1, 
(1 SPACES (38G9(1900198)2,.CONTIG®ROUND) 2 yi, a 


=VB,LRECL=604,BLKSIZE=1212 


Se ee 


amo/ el L¢, Creatiime Dota ‘Ke: Alo) 12h 


//FT89F@61, DD DSNAME= =6 TEMPO UNLT= (TAPECLS93) 9DISP= (NEW PASS )5 
79, 444)).9 


// VOLUME=( 9 RETAIN 19,99SER=(7770888999 
// DCB=(DEN=2,RECFM=UoBLKSIZE=25@0) 
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Examples of DD Statements for Creating Data Sets 








: 


DSNAME= ‘Snare 


&name(element) 
DUMMY 
DDNAME=ddname 


UNIT=(name L, } nPtl] y2 


d 
[ ( site (element) } ) 


[,SER=(volume-serial-number | , volume-serial-number | isi 8 
dsname 
VOLUME=([PRIVATE ][, RETAIN ] [, volume-sequence-number ][, volume-count] | , REF= ) *.ddname y4 
* . stepname.ddname 
* .stepname. procstep.ddname 
TRK ] 
SPACE=({ CYL P (primary-quantity [ ,secondary-quantity ] [,directory-quantity])[,RLSE] | , ALX { ,ROU ND ]§)7 
average-record-length ON 
X PDT=yyddd 
LABEL=({ data-set-sequence-number ] Uf ie ye 
SYSOUT=A 
SYSOUT=B 
SYSOUT=(X [. program-name ] [. form=no | ) 
9 
NEW DELETE 
OLD , KEEP 7 
DISP=( MOD ,PASS ) 
SHR ,CATLG 
»,UNCATLG 
dsname c if JEJUL [A] [, BLKSIZES0xxx J 
* ddname 0 E 1 /RECFM= 2 VLA], LRECL=00x.. BLKSIZE=xx0xx i" 
DCB=(} + .stepname.ddname ,DEN=< 1 , IRICH=4 7 ,BUFNO= 2! FIC $B [A] , LRECL=xxxx, BLKSIZE=xxxx ) 
* stepname. procstep.ddname 2 ET ‘ BLKSIZE=xxxx ! 








If neither "n" nor "P" is specified, 1 is assumed. 

If only "name" is specified, the delimiting parentheses may be omitted. 

if oniy one “volume-seriai-number" is specified, the delimiting parentheses may be omitted. 

SER and REF are keyboard subparameters; the remaining subparameters are positional subparameiers. 
The assumption made when this subparameter is omitted is discussed with the SPACE parameter. 


7 ROUND can be specified only if "average-record-length" is specified for the first subparameter. 
ghll subparameters are postional subparameters. 
EXPDT and RETPD are keyword subparameters; the remaining subparameters are positional subparameters. 


Oahunhd- 


10 the assumption made when this subparameter is omitted is discussed in "Job Confro! Language". 
BUFNO is the only DCB subparameter that should be specified for direct access data sets. 
The first subparameter is positional; all other subparameters are keyword subparameters. 


12 This form is used only with compiler and linkage editor blocked input and output. 











Figure 34. DD Parameters for Creating Data Sets 


DATA SET NAME specified in the DSNAME parameter of a 
| DD statement. 
The DSNAME parameter specifies the name ee 
of the data set. Only four forms of the DeMAnES Hane CALGHEAE)) 
DSNAME parameter are used to create data specify data sets that are temporarily 
sets. created for the execution of a single 
job or job step. 
bee ationnoaecid DUMMY 
DSNAME=dsname (element) is specified in the DD statement to 
Specify names for data sets that are inhibit write operations specified for 
created for permanent use. the data set. The write statement is 
recognized, but no data is transmit- 
Note: Members of a partitioned data ted. (When the programmer specifies 
set cannot be read as input toa DUMMY in a DD statement used to over- 
FORTRAN object program or created as ride a cataloged procedure, all param- 
output from a FORTRAN object program eters in the cataloged DD statement 
even though the member name has been are overridden.) The FORTRAN program- 
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mer should not specify DUMMY for a VOLUME=( [PRIVATE] {, RETAIN] 
data set that is to be read; an end of 


data set condition results, and the {, volume-sequence-number] 
execution of the load module is termi- 
nated. (, volume-count] 

DDNAME=ddname , S9ER= (volume-serial-number 
indicates a pseudo data set that will {, volume-serial-number]...) 
assume the characteristics specified 
in a subsequent DD statement "ddname." dsname 
The DD statement identified by ,REF= )*.ddname ) 
"ddname" then loses its identity; that -stepname.ddname 
is, the statement cannot be referred *,stepname.procstep.ddname 


to by an *....ddname parameter. The 

statement in which the DDNAME parame- 

ter appears may be referenced by sub- identifies the volume(s) assigned to the 
sequent *....ddname parameters. If a data set. 

subsequent statement identified by 

"“ddname™ does not appear, the data set 

defined by the DD statement containing PRIVATE 


the DDNAME parameter is assumed to be indicates that the assigned volume is 
an unused statement. The DDNAME pa- to contain only the data set defined 
rameter can be used five times in any by this DD statement. PRIVATE is 
job step or procedure step, but no two overridden when the DD statement for a 
uses can refer to the same "ddname." data set requests the use of the 
The DDNAME parameter is used mainly private volume with the SER or REF 
for cataloged procedures (as shown in subparameter. 


Figure 50 in the section "Cataloged 
Procedures"). 
RETAIN 
indicates that this volume is to 
remain mounted after the job step is 
completed. (Unless RETAIN is’ speci- 
fied, the volume is dismounted after 
its last use in the job step.) 
Volumes are retained so that data may 
SPECIFYING I/O DEVICES be transmitted to or from the data 
set, or so that other data sets may 
reside on the volume. If the data set 


The name of an input/output device or requires more than one volume, only 
class of devices and the number of devices the last volume is retained; the other 
are specified in the UNIT parameter, volumes are dismounted when the end of 


the folume is reached. If each job 
step issues a RETAIN for the volume, 
UNIT=(name[, {n]P}]) the retained status lapses when execu- 
tion of the job is completed. the 
volume, the retained status lapses 
name when execution of the job is complet- 
is given to the input/output device ed. 
classes when the system is generated. 


volume-sequence-number 


{n]P} is a one-to-four digit number that 
specifies the number of devices allo- specifies the sequence number of a 
cated to the data set. selected volume at which processing is 


to begin. All volumes whose sequence 
numbers precede the specified number 
are omitted from processing. Specifi- 
cation of the volume-sequence-number 
is useful only when the programmer is 
reading or writing a muliti-volume 
cataloged data set. 
SPECIFYING VOLUMES 


volume-count 


The programmer indicates the volumes specifies the number of volumes 
used for the data set in the VOLUME parame- required by the data set. Unless the 
ter. SER or REF subparameter is used, this 
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subparameter is required for 
multi-volume output data set. 


every 


SER 

specifies which volumes are used for 
the data set by specifying the volume 
serial number for each specific voi- 
ume. (The volume serial number is 
assigned and placed on the volume when 
the volume is made ready for use by 
the installation.) A volume serial 
number consists of one to six alpham- 
eric characters. If it contains fewer 
than six characters, the serial number 
is left-adjusted and padded with 
blanks. If SER is not specified, and 
DISP is not specified as NEW, the data 
set is assumed to be cataloged and 
serial numbers are retrieved from the 
catalog. A volume serial number need 
not be specified for an output data 
set. 


REF 
indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by "dsname", 
“*,ddname", "*.stepname.ddname", or 
"kx, stepname.procstep.ddname.* Tabie 9 
shows the data set references. 


When REF is specified and the data set 
resides on a tape volume, the data set 
is placed on the same volume, immedi- 
ately behind the data set referred to 
by this subparameter. When this. sub- 
parameter is used, the UNIT parameter 
may be omitted. 


If SER or REF is not specified, the 
control program will allocate any non- 
private volume that is available. 


SPECIFYING SPACE ON DIRECT ACCESS VOLUMES 


The programmer indicates, in the SPACE 
parameter, the space to be allocated on a 
volume to a direct access data set. 


SPACE= ({ CYL 
\average-record-iength 


s 


TRK l 


(primary-quantity 
{, secondary-quantity] 


{,directory-quantity]) 






,MXIG 
, ALX 
, CONTIG 


[,RLSE] {, ROUND]) 


ja data set named | 
| | "dsname" | 
| REF=*.ddname ja data set indicat-| 
| jed by DD statement | 
| |"ddname" in the | 
| jcurrent job step | 
| REF=*.stepname.ddnameja data set indicat-| 
| jed by DD statement | 
| |"ddname"™ in the job| 
| |step “stepname” | 
[--------------------- }------------------- 4 
] REF=*.stepname. | | 
j procstep.ddnameja data set indicat-j 
| jed by DD statement | 
| j|"ddname" in the | 
| |procedure step j 
| | "procstep" invoked | 
| Jin the job step | 
| {"stepname" | 
Peso co eee eee Petit eee iat J 


specifies space on a direct access volume. 
Although SPACE has no meaning for tape 
volumes, if a sequential data set is 
assigned to a device class that contains 
both direct access devices and tape de- 
vices, SPACE should be specified. The 
SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. 


2. Amount of space allocated. 
3. Whether unused space can be released. 


4. In what format space is alliccated. 


5. Whether space is to begin on a cylin- 
der boundary. 
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TRK 

CYL 

average-record-length 
specifies the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length 
expressed in decimal numbers). 


(primary-quantity[,secondary-quantity] 

{, directory-quantity]) 
specifies the amount of space allocat- 
ed for the data set. The "primary 
quantity" indicates the number of 
records, tracks, or cylinders allocat- 
ed when the job step begins. The 
"secondary quantity” indicates how 
much space is allocated each time 
previously allocated space is exhaust- 
ed. The operating system can allocate 
additional space specified in the sec- 
ondary quantity 15 times. The 
"directory quantity” is used only when 
writing a PDS, and it specifies the 
number of 256-byte records to reserve 
for the directory of the PDS. 


For example, by specifying: 
SPACE=(120, (400,100) ) 


Space is reserved for 400 records; the 
average record length is 120 characters. 
Each time space is exhausted, space for 100 
additional records is allocated. 


By specifying: 
SPACE=CYL, (20,2,5)) 


20 cylinders are allocated to the data set. 
When previously allocated space is exhaust- 
ed, two additional cylinders are allocated. 
In addition, space is reserved for five 
records in the directory of a PDS. 


Note: When the FORTRAN programmer uses a 
direct access data set, he must allocate 
Space on the direct access volume in two 
places: the DEFINE FILE statement in the 
source module and a DD statement at load 
module execution. He must also make _ cer- 
tain that the DD statement SPACE parameter 
contains an adequate SPACE allocation, 
based on the value specified in the DEFINE 
FILE statement. 


RLSE 

indicates that all unused external 
storage assigned to a NEW or MOD 
output data set is released when the 
data set is closed in a job step. 


MxIG 


ALX 

CONTIG 
specifies the format of the space 
allocated to the data _ set. MXIG 
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requests the largest single block of 
storage that is greater than or equal 
to the space requested in the “primary 
quantity". ALX requests up to five 
contiguous Elocks of storage, each 
block greater than the "primary quan- 
tity." CONTIG requests that the space 
indicated in the “primary quantity" be 
contiguous. 


If the subparameter is not specified, 
or if any option cannot be fulfilled, 
the operating system attempts to 
assign contiguous Space. If there is 


not enough contiguous space, up to 
five noncontiguous areas are allocat- 
ed. 

ROUND 


indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 
Note: The SPACE parameter in the DD state- 
ment must be used if a data set might be 
written on a direct access device. For the 
compiler, the programmer should allow 150 
characters per source statement in the 
“primary quantity" for each data set except 


SYSPRINT. For SYSPRINT, he should allow 
approximately 220 characters per source 
statement. 


LABEL INFORMATION 


If the programmer wishes to catalog a 
data set so that he can refer to it without 
repeating information (record type, record 
length, number of buffers, etc.) that was 
supplied when the data set was created, he 
must specify certain information in the 
LABEL parameter. If the parameter is omit- 
ted and the data set is passed, the label 


information is retrieved from data set 
labels stored with the data set. 

eee 
LABEL= ({[data-set-sequence number] i, SL 


Peers | 
,RETPD=xxxx |) 


data-set-sequence-number 
is a four-digit number that identifies 
the relative location of the data set 
with respect to the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is iden- 
tified by data set sequence number 3.) 
If the data set sequence number is not 
specified, the operating system 
assumes 1. (This option should not be 
confused with the volume sequence num- 
ber, which represents a particular 
volume for a data set.) 


specifies whetner Standard labels 
exist for a data set. SL indicates 
standard labels which contain informa- 
tion such as record format, buffer 
length, dates, density, and identifi- 
ers for the data set. NL indicates no 


labels. 


ees 
‘RETPD=xXxxXxX 


specifies how long the data set shall 
exist. The expiration date, 
EXPDT=yyddd, indicates the year (yy) 


and the day (ddd) the data set can be 
deleted by the DELETE subparameter in 
the DISP parameter. The period of 
retention, RETPD=xxxx, indicates the 
period of time, in days, that the data 
set is to be retained. If neither is 
specified, the retention period is 
assumed to be zero. 


DISPOSITION OF A DATA SET 


a RT 


The disposition of a data set is speci- 
fied by the DISP parameter; see “Data 
Definition (DD) Statement." The same 
options are used for both creating data 
sets and using previously created data 
Pe 


an o 
oUlLoe 


WRITING A UNIT RECORD DATA SET ON AN 
INTERMEDIATE DEVICE 


A printed output data set may be written 
on an intermediate device and subsequently 
written on the printer (ultimate device). 


SYSOUT=A 
indicates that the ultimate destina- 
tion for printed output data sets is 
the printer. 


Note: 
subparameter is 
be specified. 


For SYSOUT data sets, if the DEN 
specified, only DEN=2 can 





DCB PARAMETER 


For the compiler or linkage editor, the 
length of a block can be specified. For 
load module execution, the FORTRAN program- 
mer may specify record formats, record 
lengths, and the number of buffers for 
sequentially organized data sets that 
reside on magnetic tape or direct access 
volumes. For direct access organized data 


sets, only the number of buffers can he 
specified; any other specifications are 
ignored. The DCB information is piaced in 
the labels for these data sets. 

dsname 
DCB=(|} *. ddname 

*,. stepname. ddname 

*. stepname. procstep.ddname 

[, DEN={0[1]231(, TRTCH={C|E|TJET}] 


[, BUFNO={1] 2} 


{F]U} (Al (, BLKSIZE=xxxx] | 
, RECFM= jV [A], LRECL=xxxx, BLKSI ZE=xxxx ( ) 

(PIVSBUA) -aRECL te, BLASTED) 
, BLKSIZE=xxxx 


REFERRING TO PREVIOUSLY SPECIFIED DCB 
INFORMATION 


The first subparameter 


sname 

*, ddname 

*.stepname.ddname 
*,stepname. procstep. ddname 


is used to 
information 
data sets. 


retrieve DCB parameter 
from previously created 
The DCB information speci-~ 
fied for the data set referred to by 
this subparameter is copied by the 
control program for use in processing 


the data set defined by the DD state- 
ment in which this subparameter 
appears. Any subparameters in the DCB 
parameter that follow this subparame- 
ter override any copied DCB subparame- 
ters. 

dsname 


indicates that the DCB subparameters 
of a cataloged data set "dsname" are 
copied and used as the DCB parameters 
for this data set. The data set 
indicated by "dsname" must be current- 
ly mounted and it must reside on a 
direct access volume. 


*.ddname 
indicates that the DCB parameter ina 
preceding DD statement “ddname" in the 
current job step is copied. 


*.stepname.ddname 
indicates that the DCB parameter in a 
DD statement “ddname"™ that occurs in a 
previous job step “stepname"™ in the 
current job is copied. 
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*,.stepname.procstep.ddname 
indicates that the DCB parameter in 
the DD statement “ddname" is copied 
from a previous step “procstep" in a 
cataloged procedure. The procedure 
was invoked by the EXEC statement 
"stepname"™ in the current job. 


DENSITY AND CONVERSION 


The second subparameter indicates the 
density and conversion for tape volumes. 


DENSITY: Density is only specified for 
data sets residing on magnetic tape 
volumes. 


DEN={0]1] 2} 


Table 10 correlates 
numbers 0, 1, and 2. 


density with the 


Table 10. DEN Values for Model 2400 

mamas De ee ee ee 1 
| |Tape Recording Density (bits/inch) | 
| DEN }-----------~-~----- Prononacansececen { 
| Value | 7 Track | 9 Track | 
[-----}------------------ $---------------- 1 
| oO | 200 | - | 
} 1 | 356 | = | 
PD 2-4 800 | 800 ] 
beso as td he Be Sn eae Se J 
Note: If SYSOUT=A is specified, DEN=2 is 


the only DEN option that may be specified. 


CONVERSION: Conversion is used only for 
data sets residing on 7-track tape volumes. 


TRICH={C|E|T|ET} 
indicates 
used: 


which conversion type is 


Cc - data conversion feature is used 
E - even parity is used 


T - translation from BCD to EBCDIC or 
EBCDIC to BCD is required 


ET - even parity is used and transla- 
tion from BCD to EBCDIC is 
required 


RECFM=V[B) [A] 
RECFM=F (BJ [A] (M] 
RECFM=U[A] 
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The characters V, F, U, and B represent 


V - variable-length records (records whose 
length can vary throughout the data 


whose 
data 


F - fixed-length records (records 
length is constant throughout the 
set) 


U - undefined records (records that do not 
conform to either the fixed-length or 
variable-length format) 


B - blocked records 


Note: For blocked compiler 
editor I/O, RECFM should not be 


and linkage 
specified. 


The character A indicates the use of the 
FORTRAN carriage control characters; the 
character M indicates the use of machine 
code control characters. 


RECORD LENGTH, BUFFER LENGTH, BLOCK LENGTH, 
AND NUMBER OF BUFFERS FOR SEQUENTIAL DATA 
SETS 


For blocked records used by the compiler 
or linkage editor, the length of a block is 
specified by the buffer length which is 
specified by 


BLKSI ZE=xxxx 


The record length (LRECL) is permanentiy 
specified by the compiler or linkage edi- 
tor. 


For unblocked records used by the com- 
piler or linkage editor, the values for 
BLKSIZE and LRECL are permanently speci- 
fied. 


For unblocked fixed-length records or 
undefined records used during load module 
execution, the record length and the buffer 
length are specified by 


BLKSI ZE=xxxx 


For unblocked variable-length records, 
the record length is specified by 


LRECL=xxxx 


Buffer length is specified by 


BLKSIZE=xXxxx 


For blocked variable-length or fixed- 
length records used by load moduies, the 
record length is specified by 


LRECL=xxxx 


Block length and buffer length are 
specified by 
BLKSI ZE=XxXxx 
Undefined records cannot be blocked. 
Table 11 is a Summary of the specifi- 


cations made by the programmer for record 
types and blocking in FORTRAN processing. 

The number of buffers required to read 
Or write any data set is specified by 


BUFNO=x (x=1 or 2) 


FORTRAN Records and Logical Records for 
Sequential Data Sets 





In FORTRAN, records for sequential data 
sets are defined by specifications in 
FORMAT statements and by READ/WRITE lists. 
A record defined by a specification ina 
FORMAT statement is a FORTRAN record (see 
the section "Input/Output Statements" in 
the publication Basic FORTRAN IV Language). 
A record defined by a READ/WRITE list is a 
logical record. Within each category, 
there are three types of records: fixed- 
length, variable-length, and undefined. In 
addition, fixed-length and variable-length 
records can be blocked. 








UNBLOCKED RECORDS, FORMAT CONTROL: For 
fixed-length and undefined records, the 
record iength and buffer length are 
specified in the BLKSIZE subparameter. For 


variable-length records, the record length 
is specified in the LRECL subparameter; the 
buffer length in the BLKSIZE subparameter. 
The information coded in a FORMAT statement 
indicates the FORTRAN record length (in 
bytes). 


Fixed-Length Records: For unblocked fixed- 
length records written under FORMAT 
control, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 35). 


Example: Assume BLKSIZE=44 


10 FORMAT (F10.5,16,2F12.5, SUMS") 
WRITE (20,10)AB,NA,AC,AD - 


44 Bytes of Data 


FORTRAN Record (FORMAT Control) 
Fixed-Length Specification 


Figure 35. 


If the FORTRAN record length is less 


than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 36). The entire buffer is 
written. 
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Table 11. Specifications Made by the FORTRAN Programmer for Record Types and Blocking 
icecream alee ais Saye se ee ee eee Tae ae a eee ee fae reas 1 
| | | | | | 
| | Blocked or | | RECFM | ] | 
| Step | Unblocked | Record Type |Specification |Record Length ]Buffer Length | 
| | | | | | | 
ee Sere tes ES SET Pry TR ER ET Fee aR OE 
} Compiler or| Unblocked |Fixed-Length |not specifiedt|not specified1|not specified? | 
| Linkage -------------- 4-—--——------~---- 4--~+----~—----—--4----------+---- 4-----—---~------ 
| Editor | Blocked | Fixed-Length | RECFM=FB2 Jnot specified4|BLKSIZE=xxxx | 
}------------ }------------- +--------------- }~-------------}--------------4-------------- 4 
| | | Fixed-Length | RECFM=F3 | BLKSIZE=xxxx3 | | 
| | }--------------- 4-------------- }-------------- : | 
| | Unblocked |Variable-Length |RECFM=V | LRECL=xxxx | | 
| | feenennnnn=-----4--~-----------}--=----------- | 
| Load Module] | Undefined | RECFM=U | BLKSIZE=xxxx |BLKSIZE=xxxx | 
| Execution }------------- 4---------—------ 4--------------4------+----+---- 4 | 
| | |Fixed-Length  |RECFM=FB | | | 
| J} pee nen ---- fF -- - - - - +--+ 4 LRECL=xxxx | | 
| | Blocked | Variable-Length | RECFM=VB | | | 
| | }----~-~-+—---~--}----~-------—- ad ch cag a ec eie fers ee ee ny 
| | | Undefined {Blocked undefined records are not permitted | 
}-----~------ bea cee eS eteeeds Leen aia ae in lt cars apt peg aim eee alos 4 
| +Permanently specified by the compiler and cannot be altered. | 
| #For SYSPRINT or other written output, RECFM=FBA under the sequential scheduler, and | 
| RECFM=FM under the priority scheduler. | 
| Not specified for direct access data sets. | 
Spree er cal Dg NE ler Sate a ee so rg Ne ao ce PrP pace vO a Sec es J Po ae PIES, Oe J 
Example: Assume BLKSIZE=56 Gee are rs, eee ite ee he 7 
| 
5 FORMAT (F10.5,16,F12.5, "TOTAL') | pocsscs tn on kech --- -- ------ | 
WRITE (15,5) BC,NB,BD 1 | 

Ek is” oS ae yo FORTRAN Record <= = 1 

| | | 

| { | { 
io Se SS SSS eS BLKSIZE — — — —— — —— — — 4 
im —_— — — — —— — Written Record — — — — — — — —— | 

| 
! | Figure 37. FORTRAN Record (FORMAT Control) 
[-— —— FORTRAN Record — — — 4 Variable-Length Specification 
| 


33 Bytes of Data 23 Bytes of Blanks 


F 


V 


F 
g 
1 
L 
xr 
( 
( 
F 
b 
1 


ariable-Length Records: 
variable-length 


FORTRAN Record (FORMAT Control) 
With Fixed-Length Specification 
and FORTRAN Record Length Less 
Than BLKSIZE 


igure 36. 


For unblocked 
records written under 
ORMAT control, LRECL is specified as four 
reater than the maximum FORTRAN record 
ength and BLKSIZE as four greater than 
RECL. These extra eight bytes are 
equired for the 4-byte biock control word 
BCW) and the 4-byte segment control word 
SCW), aS shown in Figure 32. The BCW (see 
igure 37) contains the length of the 
lock; the SCW (see Figure 38) contains the 
ength of the record segment; i.e., the 


data length plus four bytes for the SCW. 


5 


8 


If the FORTRAN record length is less 
than (LRECL-4), the unused portion of the 
buffer is not written (see Figure 38). 


A an Ss maa ale aad i 

C —_——-—-— Written Record — — — — — 7 | 
| | 

: SSeS sSS FSS = REE SSS SS 
| 

| (— ——— FORTRAN Record — — — 4 

| | 


| 
| 
| i | 
|| | 
EN a Sree ae) ' 
lpowlscw Data | Not Written I 
ee ee ee Jd 
FORTRAN Record (FORMAT Control) 
With Variable-Length Specifi- 


cation and the FORTRAN Record 
Length Less Than (LRECL-4) 


Figure 38. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record 
length. If the FORTRAN record length is 


less than BLKSIZE, the unused portion of 





the buffer is not written (see Figure 39). 
Cl ie eet BKSiZE SS SS a 
K— —— — FORTRAN Record — —— — 7 


FORTRAN Record (FORMAT Control) 
With Undefined Specification 
and the FORTRAN Record Length 
Less Than BLKSIZE 


Figure 39. 


BLOCKED RECORDS, FORMAT CONTROL: For all 
blocked records, the record length is spec- 
ified in the LRECL subparameter; the block 
length and buffer length in the BLKSIZE 
Ssubparameter. 


Fixed-Length Records: For blocked fixed- 
length records written under FORMAT 
control, LRECL is specified as maximum 


possible FORTRAN record length, and BLKSIZE 
must be an integral multiple of LRECL. If 
the FORTRAN record length is less than 
LRECL, the rightmost portion of the record 
is padded with blanks (see Figure 40). 


Example: Assume BLKSIZE=48 and LRECL=24 
10 FORMAT (18, F16.4) 


20 FORMAT (I12) 


WRITE (13,10)N,B 


WRITE (13,20)K 


ee —_—— err er —Written Block — —— — — — —— — =| 
J 

Pai a URECT oe eee a pesca are To eee 
| | FORTRAN | 
i FORTRAN Reco SH Sat pd =a 
| | | i 

12 12 Bytes 
24 Data Bytes Data Bytes of 


Blanks 


De ah ee 


Fixed-Length Blocked Records 
Written Under FORMAT Control 


Figure 40. 


Variable-Length Records: For blocked 
variable-length records written under 
FORMAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be four plus an 


; 1 Tr Mn LAs 2 AA 
integral multiple of LRECL. The four addi- 


tional bytes allocated with BLKSIZE are 
required for the block control word that 
contains the block length. The four addi- 
tional bytes allocated with LRECL are used 
for the segment control word that contains 
the record-length indicator. 


If a WRITE statement is executed and the 
amount of space remaining in the present 
buffer is less than LRECL, only the filled 
portion of this buffer is written (see 
Figure 37); the new data goes into the next 
buffer. However, if the space remaining in 
a buffer is greater than LRECL, the buffer 
is not written, but held for the next WRITE 


statement (see Figure 41). If another 
WRITE statement is not executed before the 
job step is terminated, then the filled 


portion of the buffer is written. 
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Example: Assume BLKSIZE=28 and LRECL=12 
30 FORMAT (13,F5. 2) 

40 FORMAT (F4.1) 

50 FORMAT(F7. 3) 


WRITE (12,30)M,2 

WRITE(12,40)V 

WRITE (12,50)Y 
p-—----T-cnreer BLKSIZE — — — — — — — ———— : 
| | 
SSS aa Wiltten Block. -+ == 1 | 
| | 
| SSeS] SSS = Riche ! 

| 

| 

| 1 —-FORTRAN Record——4 9 -- FORTRAN _ | 
I | Record | 
|_| | 





[— 77 FORTRAN Record— - 


| | 
| | 
7 Data Bytes 


Variable-Length Blocked Records 
Written Under FORMAT Control 






This space of 13 bytes 
Ready for next WRITE. 
(space > LRECL) 





Figure 41. 


NO FORMAT CONTROL: Only variable-length 
records can be written without format con- 
trol; i.e., the RECFM subparameter must be 
Vv. (If. nothing is specified, Vv is 
assumed.) 


Records written without FORMAT control have 
the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the I/O list of its asso- 
ciated READ or WRITE statement. 


record can be physically 
recorded on an external medium as one 
Or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (biock). 


e A logical 


e Three quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified by 
the BLKSIZE parameter), the segment 
length (as specified by the LRECL 
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parameter), and the logical record (as 
defined by the length of the I/O list). 
BLKSIZE and LRECL are specified as part 
of the DCB parameter of the data defi- 
nition (DD) statement. If not speci- 
fied, FORTRAN provides default values. 


4Y-byte block 
segment begins 


with a 
each 


Each block begins 
control word (BCW); 


with a 4-byte segment control word (SCW). 
The SCWs and BCWs are provided by the 
system. 

The format of a BCW is given in Figure 
42. 
RECT K are Sas Tyo ee a ee 1 
| block-length | reserved | 
Sa a ee i ee Poe eee ee J 

2 bytes 2 bytes 

Figure 42. Format of a Block Control Word 
where: 


block-length 
is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the BCW 


plus the sum of the segment lengths 
specified in each SCW in the block. 
(The permissible range is from 8 to 
32,767 bytes.) 

reserved 
is two bytes of zeros reserved for 


system use. 


The format of an SCW is given in Figure 

43. 
era erste ee ee ee eee 7 
| segment-length | code | reserved | 
Ue eto cee ee eo oe oe as Se a le: J 

2 bytes 1 byte 1 byte 
Figure 43. Format of a Segment Control 

word 

where: 
segment-length 

is a binary count of the number of 


bytes in the SCW (four bytes) plus the 
number of bytes in the data portion of 
the segment following the SCW. (The 
permissible range is from 4 to 32,763 
bytes.) 


code 
indicates the position of the segment 
with respect to the other segments (if 


any) of the record. Bits 0 through 5 
are reserved for system use and are 
set to 0. Bits 6 and 7 contain the 


codes: 
code Meaning 

00 This segment is not followed or 
preceded by another segment of 
the record. 

01 This segment is the first of a 
multi-segment record. 

10 This segment is the last of a 
multi-segment record. 

11 This segment is neither the 
first nor last of a multi- 
segment record. 

reserved 

is a byte of zeros reserved for system 

use. 

Unblocked Records: For unblocked records 





written without FORMAT control, the value 
of BLKSIZE is equal to LRECL+4. (The four 
additional bytes are for the BCW.) 


If the logical record length is less 
than or equal to LRECL~4, the logical 
record comprises one record segment. 


Hence, for the associated READ or WRITE 


statement, one record segment, i.e., one 
block, is transmitted (see Figure 44). 
Note that the unused portion of the block 


is not transmitted. 


If the logical record length is greater 
than LRECL-4, the logical record comprises 
N record segments, where: N=logical record 
length/LRECL-4. Hence, for the associated 
READ or WRITE statement, N record segments, 
i.e., N blocks, are transmitted (see Figure 
45). 


Example 1: Assume BLKSIZE=28 and LRECL=24 


WRITE(18)90,R 


where: 
Q and R are real *8 variables. 


| 
| ee ea LRECL: SS SS SS eS 4 
a | 
! = SS Logical Record — — — — — 4 : 
| 
4bytes 4 bytes 16 bytes 4 bytes 
Figure 44, Variable-length Unblocked Re- 


cords, No FORMAT Control, One 
Record Segment 


Example 2: Assume BLKSIZE=28 and LRECL=24 
WRITE(18)0,R,S,V,X 
where: 


QO, R, and V are real *8 variables. 
S and X are real *4 variables. 





(eens es — BLKSIZE ————————~—— 1 
| 
SS 3 lt eG a ee _| 
| rm LRECL 
| | | 
| = SS SS Beginning of Logical Record — — — — — — e 
BCW SCW Data Segment 1 
4bytes 4 bytes 20 bytes 
[~ — — ——End of Logical Record — — — < 
| 
[scw | sow | outeseonn2 | Nar en 
4bytes 4 bytes 12 bytes 8 bytes 
Figure 45. Variable-length Unblocked Re- 
cords, No FORMAT Control, Two 
Record Segments 
Blocked Records: For blocked records 


written without FORMAT control, each block, 
except the last, is composed of at least M 
record segments, where: 


M = BLKSIZE-4/LRECL 


If the logical record length is less 
than or equal to LRECL-4, the logical 
record comprises one record segment. 


Hence, for the associated M READ or WRITE 
statement, one block, i.e., M record seg- 
ments, is transmitted. 


If the logical record length is greater 


than LRECL-4, the logical record comprises 
N record segments, where: N=logical record 
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length/LRECL-4. Hence, for the associated 
READ or WRITE statement , N record segments 
(i.e., as many blocks of M segments each as 
are needed to make up WN segments) are 
transmitted. The unused portion of the 
last block is held for the next READ or 
WRITE (see Figure 46). 


Example: Assume BLKSIZE=28 and LRECL=12 


WRITE(18)A 


WRITE(18)B 


WRITE(18)E 


where: A iS a real *8 variable. 
B and E are real ¥*4 variables. 


——-—-——--—--- — BLKSIZE —-—-——-—-—----~+ 
| 


pee ECL Se 
| 


| 
— Logical Record Bir ee Logical Record— — 
l 


4 bytes 8 bytes 4 bytes 4 bytes 4 bytes 


ree | 


oe el 


4 bytes 


f~ — Logical Record — 


{ I 


4bytes 4 bytes 4 bytes 16 bytes 


Figure 46. Variable-length, Blocked Re- 


cords, No FORMAT Control 


BACKSPACE Operations 


Unblocked Records, FORMAT Control: For all 
unblocked records written under FORMAT con- 


trol, the volume is positioned so that the 
last record read or written is transmitted 
next. 


Unblocked Records, No FORMAT Control: For 
all unblocked records written without FOR- 
MAT control, the volume is positioned so 
that the last logical record read or writ- 


ten is transmitted next. 
Blocked Records: The programmer is warned 


against backspacing blocked records; the 
results obtained are unpredictable. 
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RECORD LENGTH, BUFFER LENGTH, AND NUMBER OF 
BUFFERS FOR DIRECT ACCESS DATA SETS 


A direct access data set can contain 
only fixed-length unblocked records. Any 
attempts to read or write any other record 
format by specification in the DCB parame- 
ter are ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 
DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
subparameters in the DCB parameter. For 
example, the statement: 


DEFINE FILE 8(1000,152,E,INDIC) 
sets the record length and buffer length 


permanently at 152 bytes. The direct 
access data set defined by this DEFINE FILE 


statement contains 1000 fixed-length 
unblocked records. Each record is 152 
bytes long, and is written under FORMAT 
control. 


The only DCB parameter that can be 
supplied for direct access data sets is the 
number of buffers: 
BUFNO=x (x=1 or x=2) 
where: 


x is the number of buffers 
read or write the data set. 


used to 


For records written with FORMAT control, 
the record format is the same as for 
fixed-length unblocked records written with 
FORMAT control for sequential data sets. 
For records written without FORMAT control, 
the records must be fixed length and 
unblocked. These records do not contain a 
block control word or a segment control 
word. For records written without FORMAT 
control, the input/output list may exceed 
the logical record length (i.e., block 
Size). In this case a new logical record 
is started on output, and the next logical 
record is processed on input. If it is 
shorter than the record length, the remain- 
ing portion of the record is padded with 
zeros (see Figure 47). 


Example: A DEFINE FILE statement has spec- 
ified the record length for a direct access 


data set as 20. This statement is then 
executed 
WRITE(9*IX)DP1,DP2,R1,R2 
where: 
DP1 and DP2 are double precision vari- 
ables. 


R1 and R2 are real variables. 
IX iS an integer variable that con- 
tains the record position. 


| 
| 
| 
| 
| 
wa 
oO 
fe) 
Q 
Qa 
sag 
0) 
— 
a 
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oe 
| 
| 
| 
| 
| 
| 
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20 Data Bytes 


Record Segment 1+ Record Segment a 1 Logical Record 


I 
I 
4 Data Bytes 16 Bytes of Zeros 


Figure 47. Logical Record 


(No FORMAT 


Control) for Direct Access 


BACKSPACE, END FILE, and REWIND 
tions are ignored for direct access data 


sets. 


DCB RANGES AND ASSUMPTIONS 


For compilation, the LRECL value for the 
following data sets is fixed and cannot be 


altered by the programmer: 


opera- 


Data Set LRECL Value 


SYSPRINT 421 
SYSIN 80 
SYSPUNCH 80 
SYSLIN 80 


If the PRFRM option is specified, the 
SYSPRINT, SYSIN, and SYSPUNCH compiler data 
sets can contain blocked records. If the 
higher level linkage editor (program name: 
IEWLE44O) is used, the SYSLIN data set can 
contain blocked records. 


The BLKSIZE value must be an integral 
multiple of the corresponding LRECL value 
shown above. The maximum BLKSIZE value is 
limited only by the type of input/output 
device (see Table 12), except that for 
SYSLIN the maximum BLKSIZE value is 400 
with linkage editor IEWLE440. 


For load module execution, specifi- 
cations depend on record type. For F type 
records, the BLKSIZE value must be an 
integral multiple of the LRECL value; for V 
type records, BLKSIZE must be specified as 
4 + n x LRECL (where n is the number of 
records in the block); for U type records, 
no blocking is permitted. Note, too, that 
the BLKSIZE and LRECL range is limited only 
by the type of device used to directly 
write the data set (see Table 12). Load 
module DCB parameter default values are 
shown in Table 13. 


Table 12. BLKSIZE Ranges: Device Considerations 


(SR a Fe a ee ee pS a age 1 
| Device Type | BLKSIZE Ranges | 
 evecceca ea ar alata oma a al el a aa a la | SaEAIaG a Sel earn ace mieaae aah eee { 
| | F and U Record Type | V Record Type | 
| (0 fee naan en n------------=---------- }----------------~------------------ 4 
} Card Reader | 1<x<80 | 9<x<80 | 
}------------------ $-------------------------------- }---~-----------------~------------- { 
| Card Punch | 1<x<81 | 9<x<89 | 
}----~-------------}-------------------------------- }-~--------~------------------------ : 
| Printer: | | 
] 120 Spaces | 1<x<121 | 9<x<129 | 
| 132 Spaces | 1<x<133 | 9<x<141 | 
| 144 Spaces | 1<x<145 | 9<x<153 | 
}------------------ }-------------------------------- 4_---_-------~-~-------------------- { 
} Magnetic Tape | 18<x<32,000 | 
potese ose esesss== ae ea a al On ae cr a ; Needle aka ance doe ea akg a eee a ae 4 
} Direct Access: | Without Track Overflow+ | With Track Overflowt | 
| }-------------------------------- }----------------------------------- { 
| 2301 | 1<x<20,483 | 1<x<32,763 | 
| 2302 | 1<x<4984 | 1<x<32,763 | 
| 2303 | 1<x<4892 | 1<x<32,763 | 
| 2311 | 1<x<3625 | 1<x<32,763 | 
| 2314 | 1<x<7294 { 1<x<32,763 | 
petit see bee ee ne a ee on a ee em ee Dower ena eee et eee 4 
| +2I£ RECFM=V, the minimum block size is 9. | 
Cee eh ho ee Mice lr ee ce re re nce ae TA es ati aes a Reh J 
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eTable 13. Load Module DCB Parameter Default Values 


| 

| Data Set Ref- 
| erence Number 
| 


aaa catia aeaelaa a Raa Tore ee Mo Re ee eee eg T 
| Sequential Data Sets? l 
pasS eS eS Ses 5 Ec RRS nes + 
ddname_ | RECFM |Default LRECL | 
| | or BLKSIZE | 
p-------~----~--}---------- }------------- }--------------- }$----------=-~ 
| 1 FTO1FO001 | F | 80 | F 
pra -- aap nnn nnn }------------- ----------+---- }------------- 
| 2 FTO2FO01 | F | 80 | F 
}-~--~----~-----}~--------— t------------- }--------------- + 
| | 3 FTO3F001 | UA2 | 133 | FA2 
p-------=--—-~--f-- ~---- a }------------- }--------------- + 
| 4 FTO4FOO1 | U | 800 | E 
| es e | o | es | e 
| s e | se | e | es 
| ‘ . | : | : | : 
| 99 FT99FOO1 | U | 800 | 
p---------------1---------- i Arar em cel ene enrages 5 Sea ee eee Ege aoe er ee 


j2If the records have no FORMAT control, the default RECFM is V 


b—— — 4 HH Ht 


Direct Access Data Sets 


ween e-—- = {The value spec- 


ified as the 


—----------—-=- {maximum size of 


fa record in the 


DEFINE FILE 
statement. 


and the default LRECL 


j is 4 less than BLKSIZE, where the default BLKSIZE is as specified in this table. 
||2The first character in each record is assumed to be a carriage control character. 


ce am ec a a a rn a re a er a a a rr at ee ae ee we ae a a a a a a 
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This section contains figures showing 
the job control statements used in the 
FORTRAN IV (E) cataloged procedures and a 
brief description of each procedure. This 
section also describes how to override 
statements and parameters in any cataloged 
procedure. (The use of cataloged proce- 
dures is discussed in “Job Processing. "™) 
The SPACE parameter shown in these cata- 
loged procedures is written for use with 
IBM 2311 disk storage drive. 


Compile 


The cataloged procedure for compilation 
(FORTEC) is shown in Figure 48. 


The EXEC statement that invokes’ the 
FORTRAN E compiler is named FORT; the EXEC 
statement indicates that the operating sys- 
tem is to execute the program IEJFAAAO [the 
name for the FORTRAN (E) compiler]. Com- 
piler options are not explicitly supplied 
with the procedure: default options are 
assumed. The programmer can override these 
default options by using an EXEC statement 
which includes the options he desires. 


Compile and Link Edit 


The cataloged procedure (FORTECL) to 
compile a source module and link edit the 
resulting object module into the FORTRAN 
library (FORTLIB) is shown in Figure 49. 





CATALOGED PROCEDURES 


The EXEC statement named FORT instructs 
the control program to execute the FORTRAN 
(E) compiler. Again, no compiler option 
are specified; default options are assumed. 


The EXEC statement named LKED instructs 
the control program to execute the program 
IEWL (the alias for the highest level 
linkage editor in the installation's oper- 
ating system). This statement also speci- 
fies the XREF, LIST, LET, and NCAL linkage 
editor options. The NCAL option instructs 
the linkage editor not to resolve any 
external references in the FORTRAN library. 
This means that the resulting load module 
must be processed by the linkage editor 
again before the module can be executed 
unless NCAL is overridden. 


Link Edit and Execute 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load modules (FORTELG) is shown 
in Figure 50. 


The EXEC statement that executes the 
linkage editor is named LKED and specifies 
that the operating system is to execute the 
program IEWL, the alias for the highest 
level linkage editor. This statement also 
specifies the XREF, LIST, and LET options 
for the linkage editor. The programmer can 
override these options by using an EXEC 
statement in the input stream. 


. (X2B-7527 05, 
IBM FORTRAN Codieg Farm iad 
R, PAGE OF 
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Figure 48. Compile Cataloged Procedure (FORTEC) 
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The EXEC statement named GO executes the //EXAMPLE1 JOB ACCOUNT1, ‘JOHN SMITH', 


load module produced by the linkage editor MSGLEVEL=1 
procedure step. The PGM parameter speci- // EXEC FORTECLG, PARM.FORT=DECK, 
fies that the operating system is to exe- REGION. GO=60K 
cute the data set defined by the DD state- //FORT.SYSIN DD * 
ment SYSLMOD in the procedure step LKED. - 

In a multiprogramming environment with a FORTRAN SOURCE SYMBOLIC DECKS 
priority scheduler, main storage require- ; 
ments for the execute step are determined ‘ 
by a number of factors. These include the . 


size of the object program produced by the 
compiler, the requirements of the data /* 
access method used, the blocking factor, 7/LKED.SYSIN DD * 


the number and record sizes of data sets 

used, the number and sizes of library . 

subprograms invoked, and the sizes of other ‘ 

execution time routines required by the PREVIOUSLY COMPILED OR ASSEMBLED 
program. If the default REGION is not OBJECT DECKS 

large enough for program execution, - 

REGION.GO must be used to specify a REGION é 

parameter on the program's EXEC statement. ° 

/* 

A listing of the execution time routines //GO.SYSIN DD * 
required for various input/output, inter- ° 
ruption, and error procedures is contained 7 
in the publication IBM System/360 FORTRAN > 
IV Library Subprograms. It also lists the INPUT DATA 
Sizes of both the execution time routines 5 
and the mathematical subprograms. < 


The following is an example of using a /* 
REGION.GO specification to indicate the 
Main storage requirements for the execute 
step of a FORTRAN program. 
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Figure 49. Compile and Link Edit Cataloged Procedure (FORTECL) 
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Figure 50. Link Edit and Fxecute Cataloged 


Compile, Link Edit, and Execute 


The cataloged procedure (FORTECLG) to 
compile, link edit, and execute FORTRAN 
source modules is shown in Figure 51. 


The cataloged procedure FORTECLG con- 
Sists of the statements in the FORTEC and 
FORTELG procedures, with one exception: the 
DD statement SYSLIN (in the compiler proce- 
dure step FORT) defines the output of the 
compiler, and the statement SYSLIN (in the 
linkage editor procedure step LKED) iden- 
tifies this data set as the primary input 
to the linkage editor. The programmer does 
not have to define the linkage editor input 
as he did with the procedure FORTELG, but 
he must define the data set SYSIN for the 
compiler so that the source module can be 
read. He may also define a data set which 
becomes part of the primary input by using 
a DD statement LKED.SYSIN which is concate- 
nated with object module. This data set is 
concatenated with the data set containing 
the output of the compiler. 


USER AND MODIFIED CATALOGED PROCEDURES 


The programmer can write his own cata- 
loged procedures and tailor them to _ the 
facilities in his installation. He can 














Procedure (FORTELG) 


also permanently modify the IBM-supplied 


cataloged procedures. For information 
about adding and permanently modifying cat- 
aloged procedures, see the section 
"Cataloged Procedures" in the publication 
System Programmer's Gu ide. 


If during system generation, the G or H 
level library option was specified in the 
FORTLIB macro-instruction, the FORTRAN (E) 
cataloged procedures must be permanently 
modified to correspond to the FORTRAN (G) 
or (H) cataloged procedures. The FORTLIB 
macro-instruction is described in the pub- 
lication IEM System/360 Operating System, 
System Generation. Further modifications 
to cataloged procedure may be necessary as 
described in the Job Control Language pub- 
lication. 


If the E level library option was speci- 
fied, but the value of the OBJERR parameter 
of the FORTLIB macro-instruction was omit- 
ted or specified as something other than 
03, the following DD card must be added to 
the FORTRAN E cataloged procedure either to 
modify them permanently or to override them 
at execution time. 
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"A standard card form, 1BM electro 888157, is available for punching statements from this form 


Figure 51. Compile, Link Fdit, and Execute Cataloged Procedure (FORTECLG) 


//GO.FTXxF001 DD SYSOUT=A that is, the parameters added or modified 
are in effect only for that execution. 
where: 
xx (2 digits) is the unit specified. 
(See Figures 50 and 51.) 


OVERRIDING CATALOGED PROCEDURES 


If the same cataloged procedure is exe- 

Cataloged procedures are composed of cuted by two different job steps in the 

EXEC and DD statements. A feature of the same job, the overriding parameters or 

operating system is its ability to read Statements supplied for the first execution 

control statements and modify a cataloged are not carried over for the second execu- 

procedure for the current execution of the tion of the procedure. For example, con- 
procedure. Overriding is only temporary; Sider these job control statements: 
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//3JOB1 JOB MSGLEVEL=1 
//STEP1 EXEC FORTEC, PARM. FORT="SIZE=22K' 


//STEP2 EXEC FORTEC 


When the procedure is executed in the first 
step STEP1, the compiler is allocated 22K 
bytes. However, when the procedure FORTEC 
is executed in the second step, the SIZE 
option reverts to the default option (15K) 
because the overriding parameter only 
affects the current execution of the cata- 
loged procedure. 


The following text discusses the tech- 
niques used to override cataloged proce- 
dures. 


Overriding Parameters in the EXEC Statement 


Two forms of keyword parameters 
("keyword" and “keyword.procstep") in the 
EXEC statement are discussed in "Job Con- 
trol Language." The form "keyword. 
procstep”™ is used to add or override param- 
eters in an EXEC statement in a cataloged 
procedure. 

The FORTRAN programmer can, for example, 
add (or override) compiler or linkage edi- 
tor options, specify accounting informa- 
tion, or he can state different conditions 
for bypassing a job step for an execution 
of a cataloged procedure. 


Note: When the PARM parameter is overrid- 
den, all options stated in the EXEC state- 
ment in the procedure step are deleted, and 
the overriding PARM parameter is substitut- 
ed. 





Example 1: Assume the cataloged procedure 
FORTEC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP compiler option. 


The following statement can be used to 
invoke the procedure and to supply the 
option. 
//STEP1 EXEC FORTEC, Xx 
4/4 PARM. FORT="MAP, NAME=MYPROG! 

The PARM options apply to the procedure 
step FORT. 
Example 2: Assume the cataloged procedure 


FORTECL is used to compile and link edit a 
program. The programmer wants to specify 
the ADJUST option for the compiler because 
his source module contains embedded blanks 


and FORTRAN keywords used as variable 
names. Furthermore, he wants to remove the 


4 ‘ ; 
NCAL linkage editor option because he 


not want to make another pass through the 
linkage editor prior to using the load 


does 


module in execution. The following EXEC 
Statement can be used to add the ADJUST 
option to the compiler procedure step 


(FORT), and remove the NCAL option from the 
linkage editor procedure step (LKED). 

7/CL EXEC FORTECL, PARM. FORT=ADJUST, x 
// PARM. LKED=(XREF, LIST, LET) 


Example 3: Assume the cataloged procedure 
FORTELG is used to link edit and execute a 
module. Furthermore, the MAP linkage edi- 
tor option overrides XREF, LET, and LIST in 
the linkage editor step and the COND param- 
eter is changed for bypassing the execution 
of the load module. The following EXEC 
statement adds and overrides parameters in 
the procedure. 


//DO EXEC FORTELG, PARM.LKED=MAP, x 
4/ COND .GO= (3, LT, DO.LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applies to the execution 
procedure step GO. 


Example 4: Assume a source module is 


compiled, link edited, and executed using 
tha cataloaded procedure FORTECLG Purther- 


the catalo ged ORTECLG. ther 
more, the compiler option SIZE and the 
linkage editor option MAP are specified, 
and account number 506 is used for the 
execution procedure step. The following 


EXEC statement adds and overrides parame- 
ters in the procedure. 
//STEP1 EXEC FORTECLG, x 
4/ PARM. FORT="SIZE=22000', X 
// PARM. LKED=MAP, Xx 
// ACCT. GO=506 
Overriding and Adding DD Statements 

A DD statement with the name 
"procstep.ddname" is used to override pa- 
rameters in DD statements in cataloged 


procedures or to add DD statements to 
cataloged procedures. The “procstep" iden- 
tifies the step in the cataloged procedure. 
If “ddname" is the name of a DD statement 


1. present in the step, the parameters in 
the DD statement in the input stream 
override parameters in the DD _ state- 
ment in the procedure step. 


2. not present in the step, the new DD 
statement is added to the step. 
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In any case, the modification is only 
effective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Only parameters that 
must be changed are specified in the over- 
riding DD statement. 


wants to delete a 
keyword parameter in a DD statement, he 
supplies an overriding DD statement that 
contains that keyword, followed by an equal 
Sign, followed by a comma. 


If the programmer 


keyword=, 


For example, if the SYSOUT parameter is to 
be deleted from the SYSPRINT data set and 
the data set is to be written on the device 
PRINT in the cataloged procedure FORTEC, 
the following DD statement is used: 


//FORT.SYSPRINT DD SYSOUT=, UNIT=PRINT 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order that the DD statements 
appear in the cataloged procedure. Any DD 
statements that are added to the procedure 
must follow overriding DD statements. 


When the procedures FORTEC, FORTECL, and 
FORTECLG are used, a DD statement 
FORT.SYSIN must be added to define the 
SYSIN data set to the compile step in the 


procedures (see Figures 15, 18, and 24). 
When the procedure FORTFLG is used, a DD 
statement LKED.SYSIN must be added to 


define the SYSLIN data set (see Figure 21). 


When the procedures 
and FORTECLG are used, an overriding DD 
statement can be used to write the load 
module constructed in the linkage editor 
step ina particular PDS chosen by the 
programmer and assign that member of the 
PDS a particular name. 


FORTELG, FORTECL, 


If the programmer is using the procedure 
FORTECL and he does not supply an overrid- 
ing DD statement assigning the resulting 
load module to a private PDS, he must 
supply an overriding DD statement 


//LKED.SYSLMOD DD DSNAME SYS1.FORTLIB (name) 
to name the load module before he places it 


in the FORTRAN library (SYS1.FORTLIB). 
This procedure can be a powerful tool for 
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adding modules to the FORTRAN library and 
replacing load modules in the FORTRAN 
library. 


In execution procedure steps, the pro- 
grammer can catalog data sets, assign names 
to data sets, supply DCB information for 


data sets, add data sets, or specify par- 
ticular volumes for data sets by using 
overriding DD statements. 

Example As The cataloged procedure 


FORTECLG is used to compile, link edit, and 
execute a FORTRAN program. Since the oper- 
ating system for this installation contains 
the highest level linkage editor, blocking 
can be specified for the SYSLIN data _ set. 
In addition, the SYSPRINT data set for the 
compiler is blocked. The PRFRM and SIZE 
compiler options are specified in the PARM 
parameter, along with the BLKSIZE LRECL 
subparameter in the DCB parameter for these 
data sets. 


During load module execution, the pro- 
grammer wants the data set identified by 
ddname FTO3F001 to be written on the device 
class TAPE, instead of treating this data 
set as a SYSOUT data set and writing it on 
device class A. To do this the SYSOUT 
keyword parameter must be deleted from the 
SYSPRINT DD statement in the procedure step 
FORT, and a UNIT parameter must be sup- 
plied. The data sets identified by ddnames 
FTO4YFOO1 and FTO8F001 are named, cataloged, 
and assigned specific volumes. The follow- 
ing DD statements are used to add this 
information and indicate the location of 
the source module. 


4/JOB1 JOB MSGLEVEL=1 

//STEP1 EXEC FORTECLG, Xx 
4/ PARM. FORT=* PRFRM, SIZE=22K' 

“7 /FORT.SYSPRINT DD DCB=BLKSIZE=968 
7/FORT.SYSLIN DD DCB=BLKSIZE=800 
//FORT.SYSIN DD * 


(SSS nS ee eee 1 
| FORTRAN Source Module | 
aie arn ae eee a eae Bee ee J 
/* 


//LKED.SYSLIN DD DCB=BLKSIZE=800 
//GO.FTO3F001 DD SYSOUT=,,UNIT=TAPE 


//GO.FTO4F001 DD DSNAME=MATRIX, Xx 
// DISP= (NEW, CATLG) , UNIT=TAPE, Xx 
J/ VOLUME=SER=987K 

//GO.FTO8F001 DD DSNAME=INVERT, x 
f/ DISP= (NEW, CATLG) , UNIT=TAPE, X 


4/ VOLUME=SER=1020 


Example 2: Assume that DCB information is 
added to the DD statement identified by 
ddname FTO3F001, and that a sequential data 
set that contains blocked records’ and 


resides on a direct access volume is creat- 
ed and cataloged, using data set reference 
number 2. The following statements over- 
ride statements FTO2F001 and FTO3F001 in 
the procedure and indicate the location of 
the object module. 


//JOB2 JOB 
//STEPL EXEC 


ro 
//GKED.SYSIN DD 


v8) 
* FI 
by 
a 
Q) 


/* 

//GO.FTO2F001 DD DSNAME=FIRING, Xx 
// UNIT=SYSDA, DISP= (NEW, CATLG) , x 
// SPACE= (100, (2000,200),,,ROUND), X 
// VOLUME= (PRIVATE, SER=207H), Xx 
17 DCB= (RECFM=VB, BLKSIZE=2416, Xx 
// LRECL=804) 

//GO.FTO3F001 DD DCB=(RECFV=F, Xx 
// BLKSIZE=50) 


Example 3: Assume the cataloged procedure 
FORTECL is used to compile and link edit a 


module, DER, which is added to the FORTRAN 
library. The following job control state- 
ments can be used to add the module to the 
FORTRAN library. 


//ADDMDL JOB 427,'R.WHITE' 
//ClL EXEC FORTECL, PARM. FORT=*NAME=DER' 
//FORT.SYSIN DD * 


ae Ree ge ee ee en ing he 1 
| FORTRAN Source Module | 
i a Re OR Nr Ae ly ee ct eee J 
/* 


//LKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(DER) 


After the procedure has been executed, DER 
can be used to resolve external references 


made in FORTRAN source modules to the name 
DER. 
Example 4: Assume the cataloged procedure 


FORTECL is used to replace the library 
function SQRT in the FORTRAN library. The 
following job control statements can be 
used to replace the SORT function in the 
FORTRAN library. 


//REPLAC JOB ,‘JIM JONES’ 
// EXEC FORT FORTECL, PARM=*NAME=SQRT,MAP' 
//FORT.SYSIN DD * 


Ga eg a ee a ee 1 
| FORTRAN Source Module | 
st a ea cs ee J 
/* 


//ULKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(SOQRT) 


After the execution of the cataloged proce- 
dure, the new module SORT is used to 
resoive any external references made to the 
name SORT. The IBM-supplied library sub- 
program is no longer used. 


Example 5: Assume the cataloged procedure 
is used source module 


FORTEC is used to compile a 
STARS. The resulting object module STARS 


is to be written in the PDS SCIENCE. The 
SYSPRINT data set is written on the PDS 
PRINT and assigned the member name STARS. 


The following job control statements can be 
used to write this output in the parti- 
tioned data sets. 


4/JOB2 JOB ,JIM 
//STEP EXEC FORTEC 


//FORT.SYSPRINT DD DSNAME=PRINT (STARS) x 
// DISP=OLD 
//PORT.~SYSLIN DD DSNAME=SCIENC (STARS) x 


4/ DISP=OLD 


Example 6: Assume the link edit and exe- 
cute cataloged procedure (FORTELG) is used. 
The load module constructed in the linkage 
editor step is placed in the cataloged 
partitioned data set MATH and is assigned 
the member name DERIV. The parameters not 
overridden SY¥SLi 


in the SYSLMOD DD statement are 
copied and used to write the SYSLMOD data 
set. 


//JOB3 JOB 

//STEP1 EXEC FORTELG 

//LKED.SYSLMOD DD DSNAME=MATH(DERIV), x 
// DISP= (MOD, PASS) 

//ULKED.SYSIN DD * 


(Se Sao ee ee er ee 1 
| FORTRAN Object Module | 
Petia oa oe oe RSLs eee eee J 
/* 

Example 7: Assume the compile, link edit, 
and execute cataloged procedure (FORTECLG) 


is used with three data sets in the input 
stream: 


1. A FORTRAN main 
series of subprograms, 
SUBN. 


program MAIN with a 
SUB1 through 


2. A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 


identified by data set reference num- 
ber 1 in the source module. 
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//JOBCLG JOB 00,'J.DAVID' , MSGLEVEL=1 
//EXECCLGX EXEC FORTECLG 
//FORT.SYSIN DD * 


p---+---—-----~-~----~-~~-~.---~-_--------- 
| FORTRAN Source Module SUB1 

f Sa ooo Se ee ee eS ee ee ee 
| oe 

| es 

| - 

boos 2 ee ee eee ee eee oles 
] FORTRAN Source Module SUBN 

bowie eee eee et cee eu et aa. 
/* 


//7UKED.ADDLIB DD DSNAME=MYLIB, DISP=OLD 
//UKED.SYSIN DD * 
LIBRARY ADDLIB(ALPHA, BETA, GAMMA) 
/* 
//GO.SYSIN DD * 
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The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are in 
the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 


This section discusses minimum system 
requirements for the compiler, program 
optimization, updating the FORTRAN library, 
creation of the programmer's private 
library, and limitations of the compiler. 


MINIMUM SYSTEM REQUIREMENTS FOR THE FORTRAN 
COMPILER 


IBM System/360 Operating System operates 
in a device independent environment. In 
particular, the FORTRAN compiler may oper- 


ate with any combination of devices (shown 
in Table 3); however, there are certain 
requirements. 

e The FORTRAN E compiler requires at 


least a System/360, Model 30 with 32K 
bytes of storage, and the standard 
instruction set with the floating-point 
option. At least 15360 bytes should be 
allocated in the SIZE compiler option. 
If less than 15360 bytes is specified, 
the compiler assumes the design point 
value 15360. 


e All programs require a device, such as, 
the 1052 keyboard printer, for direct 
operator communication. 


e At least one direct access device must 
be used for residence of the operating 
system. 


e If the data sets identified by the DD 
statements SYSUT1, SYSUT2, and SYLIN 
are to reside on direct access volumes, 
another direct access device should be 
made available to the compiler for more 
efficient compilation. 


e When a DD statement specifies that a 
data set resides on a tape volume, 
there must be one tape device available 
in the installation for that data set. 


| SOURCE PROGRAM CONSIDERATIONS 


Facilities are available in the FORTRAN 
language that enable a programmer to opti- 
mize compilation and execution speed and to 
reduce the size of the object module. 


PROGRAMMING CONSIDERATIONS 


Initialization 
The programmer should initialize all 
variables that are not initialized by 


arithmetic statements in his program. 
Operating System/360 may place a load 
module anywhere in available main storage; 
the value of a variable cannot be guaran- 
teed until the programmer has given that 
variable a value by an assignment state- 
ment. For example, in the subprogram 


SUBROUTINE ALPHA(X, Y,Z) 
A=Bt+2.0 


the result A may contain any value, because 
B was not initialized. If the programmer 
expects B to be zero, he should initialize 
B as shown in the following statements: 


SUBROUTINE ALPHA(X, Y, Z) 
B=0.0 
A=B+2.0 


Coding the Source Program 


The ADJUST compiler option permits the 
programmer to insert embedded blanks, elim- 
inate meaningful blanks, and use FORTRAN 
keywords as variable names in his program. 
However, if NOADJUST is specified instead 
of ADJUST, the compiler will execute fast- 
er. In order to decrease the time required 
for compilation, the programmer should not 
include embedded blanks, include meaningful 


blanks, and not use FORTRAN keywords as 
variable or array names in his' source 
program, and then specify NOADJUST instead 
of ADJUST. 


Arithmetic Statements 


The use of multiplication instead of the 
exponential operation is recommended when 
the exponent is a small integer. For 
example, the statement 


VOL=(4.#*R*R*¥R)/3. 
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is more efficient than the statement 


VOL= (4. *R¥*3)/3. 


because the exponential operation requires 
a library subprogram. When multiplication 
is used, storage iS conserved and both 


compiler and linkage editor processing time 
are decreased. 


To calculate the square root, the square 
root library subprogram should be used 
instead of the exponential function. For 
example, the statement 


HYPOT=SQORT (A*A+B*B) 


is more accurate than the statement 
HYPOT= (A*A+B*B) **0.5 


because the SORT function is more accurate 
than the exponential function. 


The mixed mode arithmetic expression is 
provided to reduce errors because of unin- 


tentional use of different modes in arith- 
metic Statements. However, when mixed mode 
arithmetic statements are used, extra 


instructions are 
in the statement 


generated. For example, 


A=At+1 

an in-line subprogram is generated to per- 
form the operation indicated. Both main 
storage and execution time would be saved 


by using the statement 


IF Statement 


An arithmetic IF statement lists three 
statement numbers. One of the listed num- 
bers should immediately follow the IF 
statement to eliminate unnecessary branch- 
ing in the load module. For example, the 
coding represented by the statements 


IF (A-B) 20,30, 30 
30 A=0.0 
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is more efficient than coding represented 
by the statements 


IF(A-B) 20,30,30 


10 X=2.+Y 
30 A=0.0 
20 B=0.0 


DO Loop Considerations 


Values for expressions that remain con- 
Stant within a DO loop should be calculated 
before entry into the loop, instead of 
calculating the expression each time 
through the loop. For example, in the 
statements 


DO 10 I=1,100 
X(I)=2.0* (G+ALPHA) +¥ (1) 
10 CONTINUE 


the expression 2.0*(G+ALPHA) must be calcu- 


lated each time the DO loop is executed. 
For greater efficiency, the following 
statements should be substituted 

BETA=2.0* (G+ALPHA) 

DO 10 I=1,100 

X(I)=BETA+Y(1) 
10 CONTINUE 
The execution time is decreased, because 


the expression 2.0*(G+tALPHA) is calculated 
only once. 


Any subscripts that remain constant 
within the range of a DO loop should not be 
used in the DO loop. For example, in the 
statements 


DO 10 I=1,50 
X(I)=Y¥(1I)+2(5) 


10 CONTINUE 


a subscript calculation for Z(J) is per- 
formed each time the DO loop is executed, 
even though Z(J) remains constant for each 
execution of the loop. 


By substituting the statements 


B=Z (J) 
DO 10 I=1,50 
X(I)=Y(I)+B 


10 CONTINUE 


only one subscript calculation is made for 
Z(J) and execution time is decreased. 


Intricate subscript calculation within 
the range of a DO should be avoided. For 
example, in the statements 


DO 10 I=1,10 
5 X(3*I+4)=Y(3*I+4) +B 


10 CONTINUE 


two intricate subscript calculations are 
Made each time statement 5 is executed. 
The DO loop should be rewritten as shown in 
the statements 


DO 10 I=7,34,3 
5 X(I)=Y(I)+B 


10 CONTINUE 


to reduce the subscript calculation to 
Simpler terms and allow faster execution of 
the DO loop. 


READ/WRITE Statements 


To read or write an array, an implied DO 
in a READ/WRITE statement should be used 
instead of a DO loop. For example, 5 
FORTRAN records, each containing two 
values, are written by the statements 


10 FORMAT (F20.5,110) 
DO 15 I=1,5 
15 WRITE(5,10)A(1I),J(1) 


In the statements 


10 FORMAT (5(F20.5,110)) 
WRITE (5,10) (A(I) , J (1), I=1,5) 


only one FORTRAN record containing 10 
values is written. The use of an implied 
DO saves load module execution time and 
space on the volume. 


Extra subscript calculation within the 
range of an implied DO should be avoided. 


shown in 
For example, if the 


This is the same consideration 
regard to the DO loop. 
statements 


2 FORMAT ("0° ,10F12, 6) 


READ(1,2) (ACI), I=4, 31, 3) 


are substituted for the statements 


2 FORMAT (*0',10F12.6) 
READ (1, 2)A(3*I+1) ,I=1,10) 


the intricacy of the subscript calculation 
is reduced and the load module execution 
time is reduced. 


Program Structure 


Better efficiency in load module execu- 
tion is achieved when storage for a main 
program or each subprogram (excluding 
COMMON) is less than 12K bytes. A program 
that exceeds 12K bytes may be segmented 
into a group of subprograms and one main 
program. — 


If a large number of variables are to be 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL 


DIMENSION E(20),1(15) 
READ(10)A,B,C 
CALL EXAMPL(A,B,C,D,E,F,1) 


END 


SUBROUTINE EXAMPL (X,Y,2,P,0,R,J) 
DIMENSION 0Q(20),3(15) 


RETURN 
END 


storage are wasted by allocating 
variables in both the main 
program and subprogram, and Ly the subse- 
quent instructions required to transfer 
variables from one program to another. 


time and 
storage for 


The two programs should be written using 
a COMMON area, as follows: 
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COMMON A,B,C,D,E(20),F,1(15) 
READ(10)A,B,C 
CALL EXAMPL 


END 


SUBROUTINE EXAMPL 
COMMON X,Y,2,P,Q(20),R,J (15) 


RETURN 
END 


Storage is allocated for variables in 
COMMON only once and fewer instructions are 


needed to cross-reference the variables 
between programs. 
Statement Numbers and Names 

For its internal use, the compiler 


places statement numbers and names used for 
variables, arrays, and subprograms in two 


tables. Each table is divided into several 
strings and is searched many times during 
compilation. If the number of entries in 
each string iS approximately equal, the 


average time required to find a name or a 
statement number is reduced. 


STATEMENT NUMBERS: Statement numbers are 
assigned to five strings in the statement 
number table; assignment is made according 
to the last digit in the statement number. 
Statement numbers ending in 0O or 1 are 
placed in the first string; those ending in 
2 or 3 are placed in the second; those 
ending in 4 or 5 are placed in the third; 
etc. Statement numbers should be evenly 
distributed in the strings to decrease 
compilation time. 


For example, uSing 100 statement numbers 
that end only in 0 or 5 is inefficient, 
because two long strings of 50 entries each 
are created in the statement number table. 
If these 100 statement numbers were dis- 
tributed equally in strings, that is, 10 
statement numbers ending in 0; 10 ending in 
1, etc., five strings of 20 entries each 
would be created. The time used to compile 
the source program is decreased because 
excessive time is not spent in searching 
long strings. 


NAMES: Names used in the program are 
assigned to six strings; assignment is made 
according to the length of the name. Names 
that are one character lono are placed in 
the first string; names two characters lon 
are placed in the second string; and so on. 
For faster compiling, the names should be 
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distributed equally among the six strings. 
For example, if there are 26 names of one 
character each in a program, one long 
string is created. For better efficiency, 
the names should be distributed equally to 
make six strings, each containing 4 or 5 
names. 


Use of DUMP and PDUMP 


Three facts are pertinent when the sub- 


routines DUMP and PDUMP are used: 


1. Under the operating system, a program 
can be loaded into different areas of 
Main storage for different executions. 


2. The compiler assigns locations to 
variables and arrays in COMMON in the 
Same order that the programmer speci- 
fied in a COMMON statement. 


3. The compiler assigns locations in the 
object module to variables and arrays 


that are not in COMMON by name length 
and the order in which they are 
encountered. 


The following text shows several exam- 
ples of how to write statements that use 
DUMP and PDUMP. 


If a series of variables and arrays that 
reside in COMMON are to be dumped, oniy the 


first and last variables to be dumped 
should be listed as arguments for the 
subroutine. For example, if COMMON is 


defined as: 
COMMON A,B,C(20),1(10),D 


the following statement can be used to dump 
the variable B and the arrays C and I in 
hexadecimal format and terminate execution 
after the dump. 


CALL DUMP (B,1(10),0) 


If the variables and arrays are not in 
COMMON, a set of arguments should be listed 
for each name that is to be dumped. For 
example, if COMMON is defined as: 


COMMON A,B,C(20),1(10),D 
and the array X is defined as: 
DIMENSION X(25) 


oe 


and a variabie Y is defined in the module. 
The following statement should be used to 
dump B, C, I, Y, and X in real format 
without terminating execution. 


CALL PDUMP(B,1I(10),5,X(1) ,X(25),5,Y,Y,5) 


If the statement 
CALL PDUMP(B,1(10),5,X(1),Y,5) 


is used, the COMMON area is dumped correct- 
ly, but all main storage between X(1) and Y 
is dumped. 

n array and a vari able are passed as 
arguments toa tC aubenee sa: the arguments in 
the call to DUMP or PDUMP in the subprogram 
should specify the parameters used in the 
definition of the subprogram. For example, 
if the subprogram SUBI is defined as: 


SUBROUTINE SUBI (X,Y) 
DIMENSION X(10) 
call to within the source 


and the SUBI 


module is: 


DIMENSION A(10) 


CALL SUBI(A,B) 

then the following statement in the subpro- 
gram should be used to dump the variables 
in hexadecimal format without terminating 
execution: 


CALL PDUMP (X(1),X(10),0,Y¥,¥,0) 


Direct Access Programming 


Using direct access I/O rather than 
sequential I/O can decrease load module 
execution time: the direct access state- 


ments in the FORTRAN IV (E) language enable 
the programmer to retrieve a record from 
any place on the volume without reading all 
the records preceding that record in the 
data set, Direct data sets should be 
pre-formatted. If the NEW subparameter of 
the DD statement is specified for the data 


set, the FORTRAN load module will format 
the data set before the program begins 
processing. 

Note: Direct access I/O statements and 


sequential I/0 statements may not be used 
to process, via the same unit number, the 
same direct data set within the same FOR- 
TRAN load module. However, sequential I/O 
statements may process a direct data set in 
one load module, while direct access I/0 
statements process it in another. 


Not all applications are suited to 
direct access I/O, but an application that 
uses a large table that must be held in 
external storage can use direct access I/0 
effectively. An even better example of a 
direct access application is one that uses 


a data set that is updated frequently. 
Records in the data set that are updated 
frequently are called master records. 


other data sets used to update 
records are called detail 


Records in 
the Master 
records. 


Each of the master records should _ con- 
tain a unique identification that distin- 
guishes this record from any other master 
record. Detail records used to update the 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
stars, and they wish to collect data for 
each star on a data set. The unique number 
for each star can be used as identification 
for each master record. Any detail record 
used to update a master record for a star 
would have to contain the same number as 
the star. 


A FORTRAN program indicates which record 
to FIND, READ or WRITE by its record 
position within the data set. The ideal 
situation would be to use the unique record 
identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomriz- 
ing technique. A randomizing technigue is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if six-digit num- 
bers are assigned to each star, the random- 
izing technique may truncate the last two 
digits of the number assigned to the star 
and use the remaining four digits as a 
record position. For example, star number 
383320 would be assigned position 3833. 


Another example of a randomizing technique 
would be a mathematical operation performed 
on the identification number, such as 
squaring the identification number and 
truncating the first four digits and the 
last four digits of the result. Then the 
record for star number 383320 is assigned 


record position 3422. There is no general 
randomizing technique for all sets of iden- 
tification numbers. The programmer must 
devise his own technique for a given set of 
identification numbers. 


Two problems arise when randomizing 
techniques are used. The first problem is 
that there may be a lot of space wasted on 
the volume. The solution in this instance 
must be developed within the randomizing 
technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first thousand record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the trunca- 
tion. 
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Identifier Chain 
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Figure 52. Record Chaining 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 
two digits are truncated, the stars iden- 
tified by numbers 383320, 383396, and 
383352 randomize to the same record loca- 
tion - 3833. Records that randomize to the 
same record location are called synonyms. 
This problem can be solved by developing a 
different randomizing technique. However, 
in some situations this is difficult, and 
the problem must be solved by chaining. 


Chaining iS arranging records in a 
string by reserving an integer variable in 
each record to point to another record. 
This integer variable will contain either 
an indicator showing that there are no more 
records in this chain or the record loca- 
tion of the next record in the chain. 
Records chained together are not adjacent 
to each other. Figure 52 shows the records 


for star numbers 383320, 383396, and 
383352. 
When records are chained, the first 


record encountered for a record position is 
written in the record position that result- 
ed from randomizing the identification num- 


ber. Any records that then randomize to 
that same record location must be written 
in record positions to which no. other 
record identifications randomize. The 
space for these synonyms can be allocated 
either at the end or the beginning of the 
data set. However, this space must be 


allocated when the data set is first writ- 
ten. For example, if the randomizing tech- 
nique assigns master records to _ record 
locations between 1 and 9999, the program- 
mer may wish to reserve record locations 
10000 to 12000 for master records that 
become synonyms. 


The programmer must keep a record loca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The program- 
mer should set up a dummy record in his 
data set to maintain this record location 
counter. When the direct access data set 
is created, the record location counter 
should be set at the lower limit of the 
record positions available for synonyms 
(i.e., record location 10000 in the example 
used above). 


Also an indicator should ke reserved to 
indicate to the program that the end of a 
chain has been reached. Since no record 
position is designated as 0, 0 can be used 
to indicate the end of a chain. 


Before a FORTRAN program writes a direct 
access data set for the first time, the 
data set must be created by writing 
"skeleton records" in the space that is to 
be allocated for the direct access data 
set. These skeleton records should be 
written by an installation-written program. 
After the skeleton records are written, the 
direct access data set must be classified 
as OLD in the DISP parameter of the DD 
statement. However, if the skeleton 
records are not written before direct 
access records are written by the FORTRAN 
program for the first time, a FORTRAN load 
module automatically creates the data set 
and writes the skeleton records. The pro- 
grammer indicates that skeleton records 
have not been written by specifying NEW in 
the DISP parameter. A FORTRAN load module 
writes skeleton records according to the 
format described in “WRITE -- Create a 
Direct Organization Data Set - Format F 
Records" in "Section 3, Basic Sequential 
Access Method (BSAM)" in the Control _ Pro- 
gram Services publication. 


shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Figure 53 


Example 4 in Appendix A shows a program 
and job control statements used to update a 
direct access data set. 


Direct Access Programming Considerations 


In a job that creates a data set which 
will reside on a direct-access device, the 
DCB subparameter of the DD statement must 
specify DSORG = DA in order that the label 
that is created will indicate that this is 
a direct-access data set (see "Creating a 
Direct Data Set" in the publication IBM 


System/360 Operating System: Supervisor and 
Data Management Services, Form C28-6646). 


Space must be allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct access volume. For 
direct access data sets, the space allocat- 
ed in the SPACE parameter should be consis- 
tent with the record length and number of 
records specified in the DEFINE FILE state- 
ment in the FORTRAN program. For example, 


in the DEFINE FILE statement 


DEFINE FILE 8(1000,40,E,1) 


the number of records is specified as 1000 
and the record length is specified as 40. 
When this program is executed the DD state- 
ment for this data set should contain the 
SPACE parameter 


SPACE (40, (1000)) 


indicating that space is allocated for 1000 
records, and 40 bytes for each record. 


The DEFINE FILE statement for a data set 
must be in a source module in the root 
segment (i.e., it cannot be overlaid), but 
does not have to be in the same _ source 
module in which I/O operations occur. For 
example, the DEFINE FILE statement can be 
given in a main program with a subprogram 
performing the I/O operations on the data 
set. However, if an associated variable 
defined in the main program is to be used 
by a subprogram, it must be passed to the 
subprogram in COMMON. Since an associated 
variable is updated by input/output opera- 
tions, the subprogram cannot get to the 
updated value to make use of it in its 


operations unless the associated variable 


is in COMMON. 


The FIND statement permits record 
retrieval to occur concurrently with compu- 
tation or I/O operations performed on dif- 
ferent data sets. By using the FIND state- 
ment, load module execution time can be 
decreased. For example, the statements 


10 A=SORT(X) 


e 
e 


= 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8'101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on another 
data set while record number 101 could be 
retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets: 


5 FIND(8'101) 
10 A=SQRT (xX) 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8'101)X,Y 


How Arguments Are Passed 


Although the programmer cannot alter the 
method for passing arguments to a subpro- 
gram, knowing how arguments are passed may 
be valuable when he debugs his program. A 
Main program passes arguments to a subpro- 
gram in two ways. 


The 
value." 
program moves the value currently 


first method is called "call by 
When this method is used, the main 
residing 


in the argument in the main program into 
the location assigned to the argument in 
the subprogram. When the subprogram 


returns to the main program, the value of 
the argument in the subprogram is moved to 
the location of the argument in the main 
program. In FORTRAN (E), only variables 
are passed using “call by value." 
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The second method is called “call by 
name." When this method is used, the main 
program moves an address into the location 
assigned to the argument in the subprogram. 
In FORTRAN (E), arrays and subprograms, 


used as arguments, are passed using "call 
by name." The main program moves’ the 
address of the first element in the array 


into the subprogram or moves the address of 
the entry point of the subprogram, used as 
an argument, into the subprogram. 


CD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 54). Other DD statement 
parameters are discussed in "Job Control 
Language" and "Creating Data Sets." 


Channel Optimization 


The SEP parameter indicates that I/O 
operations for specified data sets are to 
use separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement, in 
which 


SEP= (ddnamel[,ddname]...) 
appears, are assigned to 
different from those assigned to 


a channel 
the 


I/O operations for data sets defined 
by the DD statements "ddname". 
Assigning data sets whose I/O opera- 


tions occur at the same time to dif- 
ferent channels decreases the time 
required for I/O operations. 


I/O Device Optimization 


UNIT subparameters can be specified for 
device optimization. 


VOLUME MOUNTING AND DEVICE SEPARATION: 


an 
unrT=(name|{P| {, DEFER} 


{, SEP=(ddname[, ddnameJ...)]) 


can be specified for volume mounting 
and device separation. The "name" and 
number of units are discussed in the 
section "Data Definition Statement." 


DEFER 
indicates that the volume(s) for the 
data set need not be mounted until 
needed. The control program notifies 


the operator when to mount the volume. 


| SEP= (ddname[,ddname]...1) ? 


{Sane n|P 3](,DEFER](,SEP=(ddname{,ddname]...+) 214 oo: 
NIT= tAFF=ddname 


a 


ae aa ee aie ee ae 


r 


5 
CYL ; 
SPLIT=(n| ),average-record-lengthf, (primary-quantity[,secondary-quantity])}) 


TRK 
susazzoe=(fevn , (primary-quantityI[,secondary-quantity] 
average-record-length 


ddname 
{,directory-quantity]), {stepname.ddname ) 
stepname. procstep.ddname 


}2The maximum number of repetitions allowed is 7. 

|2If only one “ddname" is specified, the delimiting parentheses may be omitted. 
}3If neither "n" nor "P" is specified, 1 is assumed. 

|4This subparameter is applicable only for direct-access devices. 
|SThis subparameter is the only keyword subparameter shown in this figure. All the| 
| remaining subparameters shown in the UNIT, SPACE, SPLIT, and SUBALLOC parameters are| 
| positional subparameters. | 
|SIf only "name" is specified, the delimiting parentheses may be omitted. | 


Figure 54. DD Statement Parameters for Optimization 


SEP=(ddnamel,ddname]...) address on a direct access volume. The 
is used when a data set is not to be SPLIT or SUBALLOC parameters may be speci- 
assigned to the same access arms on fied instead of SPACE to split the use of 
direct access devices as the data sets cylinders among data sets on a direct 


identified by the list of ddnames. access volume or to use space specified for 
This subparameter is used to decrease another data set which that data set did 
access time for data sets. This par- not use. 


ameter er is meaningful only for data 
sets residing on direct access SPACE BEGINNING AT A SPECIFIED ADDRESS: 
volumes. The SEP subparameter in the 
UNIT parameter provides for device SPACE= (ABSTR, quantity, beginning-address 
separation, while the SEP parameter {,directory-quantity]) 
provides for channel spearation. 

specifies space beginning at a partic- 


DEVICE AFFINITY: The use of the same ular address on a direct access’ vol- 

device by data sets is specified by ume. The "quantity" is the number of 

tracks allocated to the data set. The 

UNIT=AFF=ddname "beginning address" is the track 

the data set defined by the DD state- address on a direct access volume 

ment in which the AFF subparameter where the space begins. If the data 

appears uses the same device as the set is a partitioned data set, the 

data set defined by the DD statement "directory quantity" specifies the 

"ddname"™ in the current job step. number of records allocated to the 
directory. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 

Direct-Access Space Optimization SETS: If several sequential data sets ina 
step use the same direct access volume, 

processing time can be saved by splitting 

The SPACE parameter discussed in the use of cylinders among the data sets. 
"Creating Data Sets" is used to allocate Splitting cylinders eliminates seek opera-~ 
Space on a volume. Another form of the tions on separate cylinders for different 
SPACE parameter may also be used to specify data sets. Seek operations are measured in 
Space beginning at a designated track milliseconds, while the data transfer is 
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measured in mieroseconds. Direct access 
and partitioned data sets cannot be created 
using the SPLIT parameter. 


Fob at \ 
SPLIT=(n | ),average-record-length 


, (primary-quantity 
ee ae 


is substituted for the SPACE parameter 
when the use of cylinders is. split. 
If CYL is specified, "n" indicates the 
number of tracks per cylinder to be 
used for this data set. If "average 
record length" is specified, "n" indi- 


cates the percentage of tracks per 

cylinder used for this data set. The 

remaining subparameters are the same 

as those specified for SPACE in 
"Creating Data Sets." 

More than one DD statement in ae step 

will use the SPLIT parameter. However, 


only the first DD statement specifies all 
the subparameters; the remaining DD state- 
ments need only specify "n". For example: 


//STEP4Y EXEC PGM=TESTFI 
//FT08F001 DD SPLIT=(45, 800, (100, 25)) 


//FT17F001 DD SPLIT=(35) 


//FT23F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in the 
current step or previous steps may not have 
used all the space allocated to them by a 
DD statement. The SUBALLOC parameter may 
be substituted for the SPACE parameter to 
permit a new data set to use this unused 
space. 


TREK 

SUBALLOC= (, CYL ' 
average-record-length 
(primary-quantity, 


[,secondary~quantity] 


(,directory-quantity]), 


ddname 
stepname.ddname ) 
stepname.procstep.ddname 


} 
\ / 


The data set from which unused space 
is taken is defined in the DD _ state- 
ment "“ddname", which appears in the 
step "stepname." (The step must be in 
the current job.) The other subparam- 
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eters specified in the SUBALLOC param- 
eter are the same as the subparameters 
described for SPACE in "Creating Data 
Sets." 


Priority Scheduler Considerations for 
Cataloged Procedures 


If, during system generation, the 
installation selects a priority scheduler 
and an operating system that provides mul- 
tiprogramming with a variable number of 
tasks (MVT), the following information must 
be taken into consideration when writing 
FORTRAN programs. 


1. The PRFRM option must be in effect for 
the compile step, either by default or 
by explicit request in the compiler 
job step PARM field. Similarly, the 
SIZE allccation must be at least 
19,456 bytes. This figure assumes no 
blocking. If the input is blocked 
(e.g., by an input reader), a figure 

that is 160 times the blocking factor 
must be added to the 19,456 byte 
specification in the SIZE option. For 
a compile step, REGION must be at 
least 16K greater than the compiler 
SIZE specified in the PARM field (or 
default SIZE). 


2. If the default or 
parameter is not sufficient for a 
particular compile, link edit, or exe- 
cute job step, an adequate REGION must 
be specified on the appropriate JOB or 
EXEC card. For a link edit step, the 
specification for REGION depends. on 


cataloged REGION 


which linkage editor is used (see 
"Linkage Editor Restrictions"). 
Linkage Editor REGION 
IEWLE150 24K 
IEWLE180 26K 
i ITEWLE4 40 54K 
3. DCB BLKSIZE parameters must be speci- 
fied on the DD cards for SYSLIN, 
SYSPUNCH, and SYSPRINT. For SYSPRINT, 
this block size is 121; for SYSPUNCH 


it is 80. The blocking factor deter- 
mines the specification for SYSLIN, 
but it must be specified as a multiple 
of 80. If this figure is added to the 
SIZE specification, it must also be 
added to that for REGION. 


4. Compiler data sets handled by output 
writers cannot be blocked (e.g., SYS- 
PRINT and SYSPUNCH). 


LIBRARY CONSIDERATIONS The following is a list of compiler 


restrictions: 


a 


The FORTRAN library is a group of sub- 


programs residing in the partitioned data e The maximum number of variables that 
set SYS1.FORTLIB. For a detailed descrip- May be equated in EQUIVALENCE state- 
tion of the FORTRAN library, see the ments is approximately 100. For compi- 
FORTRAN IV (E), Library Subprograms publi- lations in which the largest unused 
cation. A programmer can change the _ sub- portion of the Dictionary and the Over- 
programs in the library; he can add, flow Table exceeds 800 bytes, the maxi- 
delete, or substitute library subprograms; mum becomes the number of bytes in this 
or he can create his own library. These segment divided by 8. For example, if 
topics are discussed in detail in the the compiler allocates 5500 bytes to 
section "Moving and Copying Data" in the the Dictionary and Overflow Table, and 
Utilities publication. 3100 are used, then the maximum becomes 


240078=300. 


e The maximum number of names for vari- 
COMPILER RESTRICTIONS ables and arrays that may appear in an 
I/O list is approximately 250. 


Table 14 shows the average number of e The maximum number of arguments in a 
source statements that can be compiled by subprogram call or subprogram defini- 
the FORTRAN compiler with regard to the tion is 48. 

SPACE and PRFRM option and the size (in 

bytes) of the Dictionary and the Overflow e The maximum level of nesting for DO 
Table used by the compiler. The Dictionary loops is 25. 

and the Overflow Table are used by the 

compiler to contain information concerning e The maximum number of statement numbers 
variables, arrays, subscripts, functions, in a computed GO TO statement is 
data set reference numbers, statement num- approximately 250. 


bers, etc. 
e The maximum number of records allowed 
The dictionary and overflow table size in a direct access data set is 
in bytes, S, required to compile a number 224 (2249=16,777, 216). 
of source statements, X, is approximately 
e The maximum size of an array is 131,071 
S=10xX+500 bytes. 


Table 14. Source Module Size Restrictions 


piacere ea as ea ee ee ee 1 

|Average Number of 1hiet onary and \titermediace Text Capacity (in bytes) | 
|SIZE Option |Source Statements | Overflow Table }----------- Yorn 1 
| | That Can Be Compiled|Size (in bytes) | SPACE | PRFRM | 
~----7------ }--~-~----7----------}-------7-------}----------- f-----------7----=--- === 
| SPACE | PRFRM? | SPACE | PRFRM | SPACE | PRFRM |Buffer Size|Buffer Size] In Storage? | 
}-----+------ $--------- }---------- +------- }-------}----------- }----------- $------------- : 
{ 15K |] 19K | 170 | 170 {| 2216 | 2216 |{ 104 | 96 | 0 | 
} 44K | 48K | 2500 | 1980 | 25512 | 20328 | 1704 | 1696 [ 5184 | 
} 86K | 90K | 6500 | 6500 | 65536 | 65536 | 1704 | 1696 | 8104 | 
{200K | 204K | 6500 | 6500 | 65536 | 65536 | 1704 | 1696 | 119720 | 
opered ea 4---~--4------—__4_--_------- 4 db +--+ ++ +4 


{+If blocked input and output are used, the value of the expression [2*(BLKSIZE)] must| 
| be added for each data set that contains blocked records to the number shown under the] 
] PRFRM option. 

|*The figures under "In Storage" indicate how many additional bytes are available for| 
| retaining the intermediate text in main storage before the text has to be written on| 
| external storage. If the storage required for intermediate text does not exceed this| 
| figure, no I/O operations are performed for the intermediate text. | 


Daa ec tle cS Nea he ee et Eee a ee el 4 
e The maximum total program and data size numbers), DO statements, and statement 
(including COMMON) is 196,608 bytes. functions cannot exceed 1000. 

¢ The total number of statement numbers e The number of arguments in a statement 
referred to (excluding FORMAT statement function cannot exceed 15. 
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LINKAGE EDITOR RESTRICTIONS 


The maximum number of load modules and 
object modules that can be processed by 
each linkage editor varies according to the 
number of bytes of main storage reserved 
for linkage editor operations. This maxi- 
mum is shown below for each of the three 
linkage editors. 


a ee | CNEL RTCR Ena Caanantalaia ree mta a | 
|Linkage Editor|Bytes Reserved| | 
| Name |for Operation | Maximum | 
p-------------- }-----=-------- ----------- i 
| | 15K {| 119 | 
| IEWLE150 }-------------- $----------- | 
! | 18K | 229 | 
}-------------- }-------------- }----=------- { 
| | 18K | 75 | 
| IEWLE180 }-------------- +----------- { 
| | 20K {| 140 | 
}-------------- }-------------- }----------- : 
| | 44k | 349 | 
| IEWLE4S4O }----------~--- $----------- { 
| | 88K | 1250 | 
EE ve Pag Pen ere en re Bee tae oe Dee cae as J 


Object modules processed by the linkage 
editor cannot exceed 512K bytes, because 
this is the maximum that can be processed 
by program FETCH. 
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FORTRAN LOAD MODULE RESTRICTIONS 


The following is a list of FORTRAN load 


module restrictions: 


e A FORTRAN load module cannot read past 


the end of a data set. 


For the EXP and DEXP library functions, 
the argument cannot exceed 174.673. 


For the SIN and COS library functions, 
the absolute vaiue of the argument 
cannot exceed 

2180 TY (228 TT =. 82354966406249996D+06). 


For the DSIN and DCOS library func- 
tions, the absolute value of the argu- 
ment cannot exceed 

2590 TT (2590 TF=. 35371188737802239D+16). 


The minimum record length for records 
written on a magnetic tape volume is 
18. The minimum record length for 
records read from a magnetic tape vol- 
ume is 12. 


A data set reference number cannot 
exceed the maximum data set reference 
number specified by the installation 
when the system is generated. 


The compiler, linkage editor, and load 
modules produce aids which may be used to 
document and debug programs. This section 
describes the listings, maps, card decks, 
and error messages produced by these compo- 
nents of the operating system . 


COMPILER OUTPUT 


The compiler can generate a listing of 
source statements, a storage map showing 
the location of variables and constants in 
the object module, and an object module 
card deck. Source module diagnostic mes- 
sages are also produced during compilation. 


Source Listing 


If the SOURCE option is specified or 
assumed, the source listing is written by 
the output device specified in the SYSPRINT 
DD statement. A sequential internal state- 
ment number: 


S.nnnn (1<nnnn<9999) 
is assigned to each source statement. 
(Comments and continuation cards are not 


assigned an internal statement number.) 
The internal statement number is then used 
in the diagnostic messages to indicate 
erroneous statements in the source program. 
An example of a source program listing is 
shown in Figure 55. This printout is the 
source listing of Sample Program 1 shown in 
"Appendix D" of the publication Basic 


FORTRAN IV Language. 
c PRIME NUMBER PROBLEM 





5.0001 100 WRITE (6,8) 

5.0002 8 FORMAT (52H FOLLOWING IS A LIST OF PRIME NUMBERS FROM 1 TO 1000/ 
L19Xy LHL/19X, LH2/19Xy 1H3) 

5.0003 101 I=5 

$.0004 3 A=I 

5.09005 102 A=SQRT(A) 

5.0006 103 J=A 

S,9007 104 DO 1 K=3yJ5y2 

5.0008 105 L=I/K 

5.0009 106 IF(L¥K-1)19294 

5.0010 L CONTINUE 

5.0011 LO? WRITE (6,501 

$0012 5 FORMAT (120) 

5.0013 2 [=1+2 

5.0014 108 [F (1000-1) 7,453 

5.0015 4 WRITE (6,9) 

5.G0L6 9 FORMAT (14H PROGRAM ERROR) 

5.0017 7 WRITE (6,6) 

5.0018 6 FORMAT (31H THIS IS THE END OF THE PROGRAM) 

5.0019 109 STOP 

5.0020 END 





Figure 55. 


Source Module Listing 


SYSTEM OUTPUT 


Storage Map 


If the MAP option is specified, a stor- 
age map of the object module is written on 
the data set specified by the SYSPRINT DD 
card. The storage map gives a listing of: 


1. The relative addresses and names of 
all variables, including subprogram 
names and in-line subprogram names. 


and names of 
including all 
subpro- 


2. The relative addresses 
all external references, 
subprograms, except in-line 
grams. 


3. All user-specified literal constants 
and their relative addresses. 

4. All compiler-generated constants and 

their relative addresses. 


5. A branch list consisting of all state- 
ment numbers referred to and their 
relative addresses. 


An example of a map printout is shown in 


Figure 56. This printout is the source 
module map of Sample Program i shown in 
"Appendix D" of the publication Basic 


FORTRAN IV Language. 


Object Module Card Deck 


The compiler produces an object module. 


This module is composed of four types of 
card images -- TXT, RLD, ESD, and END. If 
the DECK option is specified, the object 


module is written on the device specified: 
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| STORAGE MAP VARIABLES (TAGSO C=COMMON, E=EQUI VALENCE) 
| NAME TAG REL ADR NAME TAG REL ADR NAME TAG REL ADR NAME TAS REL ADR 
i 000154 A 000158 OO015C K 000160 
L 000164 
EXTERNAL REFERENCES 
NAME REL ADR NAME REL ADR NAME REL ADR NAME REL ADR 
SQRT 000168 
CONSTANTS 
NAME REL ADR NAME REL ADR NAME REL ADR NAME REL ADR 
00000005 000184 00000002 000188 009003E8 00018C 
IMPLIED EXTERNAL REFERENCES 
NAME REL ADR NAME REL ADR NAME REL ADR NAME REL ADR 
IBCOM# 000220 
STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR 
00100 000256 00190 000256 00008 090La0 ooLal 00026C 
00003 000274 00102 900294 00103 000246 00104 9002C4 
00105 0002CC 00106 0002p COOL 0002F4 00197 000308 
00005 0001DC 00002 000324 00108 000330 00604 000344 
00009 0001E0 00007 000358 00006 OOOLF4 00109 00036C 
Figure 56. Storage Map 
in the SYSPUNCH DD statement; if LOAD is external references, the storage at the 
specified, the module is written on the address indicated in the RLD card image 


SYSLIN DD state- 
ment. A functional description of these 
card images is given in the following 
paragraphs. 


device specified in the 


OBJECT MODULE CARD IMAGFS: Every card 
image in the object module contains a 
12-2-9 punch in column 1 and an identifier 
in columns 2 through 4. The identifier 
consists of the characters ESD, RLD, TXT or 
END. The first four characters of the name 
of the program are placed in columns 73 
through 76 with the sequence number of the 
card in columns 77-80. 


ESD... Card: Three types of ESD card images 

are generated: 

ESD, type 0 - contains the name of the pro- 
gram and indicates the begin- 
ning of the object module. 


ESD, type 2 - contains the names of subpro- 


grams referred to by CALL 
Statements, EXTERNAL state- 
ments, and function refer- 
ences in the source program. 
ESD, type 5 - contains information about 
the COMMON area. 
The number 0, 2, or 5 is placed in card 
column 25. 
RLD Card Image: An RLD card image is 


generated for external references indicated 
in the ESD, type 2 card images. To com- 
plete external references, the addresses in 
the RLD card image are matched with exter- 
nal symbols in the ESD card images by the 
linkage editor. When it has resolved 
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contains the address assigned to the sub- 
program indicated in the ESD, type 2 card 
image. RLD card images are also generated 
for a branch list produced for statement 
numbers, DO loops, and Statement Functions. 


TXT Card Image: The TXT card image con- 
tains the constants used by the programmer 
in his source module, any constants gener- 
ated by the compiler, coded information for 
FORMAT statements, and the machine instruc- 
tions generated by the compiler from the 
source module. 


END Card Image: One END card image is 
generated for each compiled source module. 
This card indicates the end of the object 
module to the linkage editor, and contains 
the entry point (where control is given to 
begin execution of the module after it is 
link edited). 


OBJECT MODULE DECK STRUCTURE: Figure 57 
indicates the FORTRAN object module deck 
structure. If the object module is written 
on a device other than the card punch, the 
structure of the module is the same. 


Source Module Diagnostics 


Two types of diagnostic messages are 
generated by the compiler - informative and 
error/warning messages. 


Source Module Informative Messages: Source 
module messages tell the programmer or 
operator about the status of the compiler. 
A message is generated when the compilation 
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Figure 57. Object Module Deck Structure 


| MESSAGE NUMBER 


| IEJnnnI 
}----~-----+~~---=--------+—----+---- 
| nnn is 

| XXXX is 

| message is 


Figure 58. Format of 


END Card, giving 






Module Instructions 


for Compiler 
Generated Constants 


ESD, Type 2 and 
RLD for Compiler 

Generated External 
References 


TXT Cards for 
Coded FORMAT 


the message number 


has begun, when the compiler options are 
processed, and at the end of compilation. 
For a description of these messages, see 
"Appendix D." 


Source Module Error/Warning Messages: All 
error/warning messages produced are written 


in a group following the source module 
listing and storage map. Figure 58 shows 
the format of each message as it is written 


on the data set specified by the SYSPRINT 
DD statement. 


When error conditions cannot be ascribed 
to a single source statement, the error 
message contains an internal statement num- 
ber S.0000. For example, in the FORTRAN 
statements 


DOUBLE PRECISION DP 
COMMON R, DP 


the error message 


IEJ1461 S.0000 INCONSISTENT EQUATE 


is issued, because a double-precision vari- 
able is not placed on the proper boundary. 
The error could be attributed to either 
FORTRAN statement, so the internal state- 
ment number S.0000 is assigned to the error 
message. 


There are two types of error/warning 
messages: serious error messages and warn- 
ing messages beginning with the word 
"WARNING". Serious error messages transmit 
a condition code of 8, 12, or 16. Warning 
messages transmit a condition code of 4. 


STATEMENT NUMBER DESCRIPTION 


message 


the internal statement number 
the actual message printed 


Diagnostic Messages 
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For a description of error/warning mes- 


sages, see "Appendix D." 


LINKAGE EDITOR OUTPUT 


The linkage editor produces a map of a 
load module if the MAP option is specified, 
or a cross-reference list and a map if the 
XREF option is specified. The linkage 
editor also produces diagnostic messages, 
which are discussed in the “Appendix D" of 
the publication Linkage Editor. 


Module Map 


The module map is written on the data 
specified in the SYSPRINT DD statement 
linkage editor. To the linkage 
each program (main or subprogram) 
COMMON area are control sections. 


set 
for the 
editor, 
and the 


Each control section name is written 
along with origin and length of the control 
section. For a program, the name is list- 
ed; for COMMON, the name SBLANKCOM is 
listed. The origin and length of a control 
section is written in hexadecimal numbers. 
A segment number is also listed for overlay 
Structures (see the publication Linkage 
Editor). 


names and locations of each control 
section and entry points and their loca- 
tions are also written; any functions 
called from the data set specified by the 


The 





CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION 
MAIN eT) 37A 
THCSSGRT* 380 AC 
SQRT 380 
THCFCQME* 430 1484 
I BCOGM# 430 
| IHCF LOSH* 1888 c50 
| FlOcs# 1888 
THC UATBL* 2508 638 
ENTRY ADDRESS 00 


TOTAL LENGTH 2B40 


| 





Figure 59. Module Map 


88 


MODULE MAP 


SYSLIB DD statement are listed and marked 


by asterisks. 


The total length and entry point of the 
load module are also listed. 


Figure 59 shows a load module map for 
Sample Program 1 shown in Appendix D of the 
publication Basic FORTRAN IV Language. 


Cross-Reference List 


If the option XREF is 
cross-reference list is written with the 
module map. This cross-reference list 
gives the location from which an external 
reference is made, the symbol externally 
referenced in this control section, the 
control section in which the symbol 
appears, and the segment number of the 
control section in which the symbol 
appears. Unless the linkage editor is 
building an overlay structure, the cross- 
reference list appears after the module map 
for all control sections. 


specified, a 


Figure 60 shows the cross-reference list 
and module map for Sample Program 1 shown 
in “Appendix D" of the publication Basic 
FORTRAN IV Language. 


LOAD MODULE OUTPUT 


The programmer defines the output data 
sets for load module execution in READ, 
NAME LOCATION NAME LOCATION NAME LOCATION 
FDIOCS# 469 











CONTROL SECTION ENTRY 





NAME GRIGiN LENGTH NAME LOCATIGN 
MAIN 00 37A 
{THC SSORT* 380 AC 
SQRT 380 
THCFCOME * 430 1484 
IBCOM# 430 
IHCFIOSH* 1888 C50 
FLOCS# 18B8 
{HCUATBL* 2508 638 
LOCATION REFERS TO SYMBOL IN CONTROL SECTION 
168 SQRT THCSSQRT 
220 IBCOM# THCFCOME 
404 IBC OM# {HCFCOME 
A5C FLOCS# LHCFIGSH 
CFC FIOCS# THCFIOSH 
190C THC UATBL THCUATBL 
19E8 [BCOM# THCFCOME 
ENTRY ADDRESS 00 
TOTAL LENGTH 2840 





CROSS REFERENCE TABLE 


NAME LOCATION NAME LOCATION NAME LOCATION 


FOLOCS# A60 


Figure 60. Linkage Editor Cross-Reference List 

WRITE, and FORMAT statements. At execution written when an exception occurs. Operator 
time, FORTRAN load module diagnostics are intervention is not required for any of 
generated in three forms - error code these exceptions (interrupts), and execu- 
diagnostics, program interrupt messages, tion is not terminated. The program inter- 
and operator messages. An error code rupt messages are written on a data set 


indicates an input/output error or a misuse 
of a FORTRAN library function. A program 
interrupt message (which is a special form 
of an error code diagnostic) indicates a 
condition which System/360 cannot correct. 
An operator message iS generated when a 
STOP or PAUSE is executed. 


Error Code Diagnostics 


When an error condition arises during 
execution of a FORTRAN load module, a 
message of the form 
IHCxxxI {message text] 
is printed. The error code is the number 
specified by the digits xxx. With some 
error code diagnostics, a “message text" is 


printed. The error code diagnostics are 
described in Appendix D. 


The error code diagnostics are written 


on a data set specified by the programmer. 
(See "Job Processing."™) 


Program Interrupt Messages 


containing 
(PSW) are 


Program interrupt messages 


the old program status word 


specified by the programmer (see "Job Proc- 
essing.") For a detailed description of 
Jthese messages, see Appendix D. 


ABEND Dump 


If a program interrupt occurs that caus- 
es abnormal termination of a load module, 
an indicative dump is given (i.e., only the 
contents of significant registers, indica- 
tors, etc., are dumped). However, if a 
programmer adds the statement: 


4/GO.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, all main storage and registers are 
dumped. For information about interpreting 
the indicative and abnormal terminaticn 


dumps, see Part V of the Messages, Comple- 
tion Codes and Storage Dumps publication. 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during 
load module execution. Operator messages 
are written on the device specified for 
operator communication. For a description 
of these messages, see Appendix D. 
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The following examples show several 
methods to process load modules. Example 1 
consists of a single job step that uses 
blocked variable-length records as output 
in a matrix inversion application. Example 
2 shows the rocket firing example used in 
the "Introduction" to show job and job step 


relationships. Example 3 uses a generation 
data group to report and forecast the 
weather. Example 4 shows a program to 


update a direct access data set that con- 


tains star master records. 


Example 1 


Problem Statement: 
A previously created and cataloged data set 
SCIENCE.MATH.MATRICES contains 80 matrices. 


SCIENCE, 


MAIN, 


MATRICES 


{ SCIENCE. / \ 


VIAN Lie 


INVMATRS 















Printed 
Output 


Figure 61. Input/Output Flow for Example 1 


APPENDIX A: EXAMPLES OF JOB PROCESSING 


Each matrix iS an 
variables. 


array containing real 
The size of the matrices varies 
from 2x2 to 15x15; the average size is 
10x10. The matrices are inverted by a load 
module MATINV in the PDS MATPROGS. Each 
inverted matrix is written as ae single 
record on the data set 
SCIENCE.MATH.INVMATRS. The first variable 
in each record denotes the size of the 
matrix. Each inverted matrix is printed. 


The I/O flow for the example is shown in 
Figure 61. The job control statements used 
to define this job are shown in Figure 62. 


The JOB statement identifies 
the programmer as JOHN SMITH and supplies 
the account number 537. The MSGLEVEL pa- 
rameter indicates that both control state- 
ments and control statement diagnostic mes- 
sages are printed on the console typewrit- 
er. 


Explanation: 


The JOBLIB DD statement indicates that 
the cataloged PDS MATPROGS is concatenated 
with the system library. 


The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8F001 identifies the 
input data set, SCIENCE.MATH.MATRICES. (In 
the load module, data set reference number 
8 is used to read the input data _ set.) 
Because this data set has been previously 
created and cataloged (DISP=OLD), no other 
information has to be supplied. 


Sample Coding Form 











2|-30 


41-5 51-60 61-70 





FTES 1B TOTO TIETST STS STOL TST So TSO ELST TSTol 7ISISTOLN 21S Ta STs OTST PISTaT Se rIeS[Ot 21314 se ISTSIOIT2ISTa Sieh 7161810 





//INVERT JOB 5379 JOHNSMITH »MSGLEVEL=1 


//JOBLIB DD DSNAME=MATPROGS »DISP=OLD 


/ZINVERT, EXEC PGM=MATINV 


/1FT@8FG01, DD DSNAME=SCIENCE. 





// FTAGFOO!, DD SYSOUT=A oe: 


ATH MATRICES »DISP=OLD 





mofiitiriit 
//FT@4FOO1, DD DSNAME=SCTENCE .MATH-INVMATRS» ce 


Eee Oe Se ee EE BS er TL 














Ma DISP=(NEWCATLG) UNIT =DACLASS VOLUME = CER PAIN goa ots 











I Sea vee IRLSE 1 CONTIG ROUND) 9SEP=FTOBFOO1 


if _DCB=(R| 











Figure 62. 





Appendix A: 


RECFM=VB»LRECL*908,BLKSIZE-2728) noo. 





ar 


Job Control Statements for Example 1 
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DD statement FT10F001 identifies the 
printed output. (In the load module, data 
set reference number 10 is used for printed 
output.) The data set is written on the 
device class specified in the SYSOUT param- 
eter. The records are then written on a 
device determined by the operator when the 
job is executed. 


DD statement FTOYFO01 defines the output 
data set. (In the load module, data set 
reference number 4 is used to write the 
data set containing the inverted matrices.) 
Since the data set is created and cataloged 
in this job step, device, volume, space, 
record format, and length information are 
supplied. 


The DSNAME parameter indicates that the 
data set is named SCIENCE.MATH.INVMATRS. 
The DISP parameter indicates that the data 
set is created (NEW) and cataloged (CATLG) 
in this job step. The SPACE parameter 
indicates that space is reserved for 80 
records, 408 characters long (80 matrices 
of average size). When space is exhausted, 
space for 9 more records is allocated. The 
Space is contiguous (CONTIG); any unused 
space is released (RLSE), and allocation 
begins and ends on cylinder boundaries 
(ROUND). 


The DCB parameter indicates blocked 
variable-length records (RECFM), because 
the size of matrices varies. The FORTRAN 
record length is 904, the maximum size of a 
FORTRAN record. The maximum size of a 
FORTRAN record in this data set is the 
Maximum number of elements in a matrix 
multiplied by the number of bytes ailocated 
for an element (900) plus 4 for the vari- 
able that indicates the size of the matrix. 
LRECL is specified as 908 (the FORTRAN 
record length plus 4 for the segment con- 
trol word used by the operating system for 
a variable-length record). BLKSIZE is 
specified as 2728 (an integral multiple of 
LRECL plus 4 for the block control word 


used for blocked variable-length records). 
The parameter SEP indicates that I/0 
operations for the data set SCIENCE. 


should use a different chan- 
data set 


MATH. INVMATRS 
nel from I/O operations for the 
SCIENCE.MATH.MATRICES. 


Example 2 


Problem Statement: A previously created 
data set RAWDATA contains raw data from a 
test firing. A load module PROGRD refines 





data by comparing the data set RAWDATA 
against a forecasted result, PROJDATA. The 
output of PROGRD is a data set &REFDATA, 
which contains the refined data. 


The refined data is used to develop 
values from which graphs and reports can be 
generated. The load module ANALYZ contains 
a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set §&VALUES, 
which contains intermediate values. 


These values are used as input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 63 shows the I/O flow for 
this example. It is the same as Figure 1 
in the "Introduction" except that the data 
sets and programs have been assigned the 
names indicated in the preceding text. 
Figure 64 shows the job control statements 
used to process this job. 


The load modules REFDAT, ANALYZ, and 
REPORT are contained in the PDS FIRING. 


Explanation: The JOB statement indicates 
the programmer's name, JOHN SMITH, and that 
control statements and control statement 
errors are printed on the console typewrit- 
er (MSGLEVEL=1). 







RAWDATA 


PROGRD ; 


ANALYZ 


es 


PROJDATA 






REPORT 


Graphs 
and 
Reports 


Figure 63. I/0 Flow for Example 2 
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Figure 64. Job Control Statements for Example 2 

The JOBLIB DD statement indicates that DD statement FT17F001 identifies the 
the PDS FIRING is concatenated with the data set which contains refined data. The 
system library. DSNAME parameter indicates that the data 

set was created using DD statement FT12F001 

The EXEC statement STFP1 defines the in job step STEP1. The DISP parameter 
first job step in the job, and indicates indicates that the data set is deleted 
that the load module PROGRD is executed. after execution of this job step. The DD 

statement FT18F001 identifies the 


The DD statements FT10F001 and FT11F001 
identify the data sets containing raw data 


(RAWDATA) and the forecasted result 
(PROJDATA), respectively. 
DD statement FT12F001 defines a tempo- 


rary data set, &REFDATA, created for input 
to the second step. (In the load module, 
data set reference number 12 is used to 
write &SREFDATA.) The DISP parameter indi- 
cates that a data set is created (NEW) and 
is passed (PASS). The data set is written 
using the device class TAPFCLS. The VOLUME 
parameter indicates that the volume iden- 
tified by serial number 2107 is used for 
this data set. The DCB parameter indicates 
that the volume is written using high 
density (DEN). The records are fixed- 
length (RECFM). The logical record length 
is 400; therefore, the buffer length 
(BLKSIZE) is specified as 400. 


The EXEC statement STFP2 defines the 
second job step in the job and indicates 
that the load module ANALYZ is executed. 


Appendix A: 


previously created and cataloged data set 


PARAMS. 


DD statement FT20F001 defines the temrpo- 
rary data set &VALUES containing the inter- 
mediate values. The DISP parameter indi- 
cates that the data set is created in this 
step and that it is passed. The data set 
is written on volume 2108 using one of the 
devices assigned to the class TAPECLS. The 
DCB parameter indicates high density (DEN), 
fixed-length records (RECFM). Each record 
is 204 characters long (BLKSIZE). 


The EXEC statement STEP3 defines the 
third job step and indicates that the load 
module REPORT is executed. 


DD statement FTO8FO001 identifies the 
data set containing intermediate values. 
The DSNAME parameter indicates that this 
data set is defined by the DD statement 
FT20F001 in job step STEP2. 
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DD statement FTIOF0O01 indicates that the 
data set reference number 10 is used to 
print the reports and graphs for job step 
three. 


Weather 
FILECR Conditions 










Example 3 


Problem Statement: A generation data 
group, WEATHER, is updated and then several 
of the data sets within the group are used 
to produce a forecast. 


{WEATHER(-2 


The load module FILECR in the PDS WTHRPR 
reads a card data set and creates a new 
generation data set. The new generation 
contains current data about weather condi- 
tions. FILECR also generates a weather 
report. Figure 65. I/O Flow for Example 3 


The load module FORCST in the PDS WTHRPR Explanation: The JOB statement defines the 
then uses the new generation along with job WEATHRP to the operating system, and 
three other generations of the group to indicates that only control statement error 
forecast the weather. The weather forecast messages are printed on the console type- 
is written on the printer. Figure 65 shows writer. The JOBLIB DD statement indicates 
the input/output flow for the job. that the PDS WTHRPR is concatenated with 
Figure 66 shows the job control statements. the system library. 


Sample Coding Form 















































































































1/ CREATE EXEC, PGM=FILECR 

/}FTG8FOO1, DD. DSNAME=WEATHER (+1) sUNIT=CHYPERT).DEFER) 9). u 

/] VOLUME=(sRETAIN®SER=@12)iDISP=(NEWOCATLG).9 

// LABEL=(1SL>RETPD=0030) »DCB=(RECFM=F,oBLKSIZE=400) 

//FTO3FOO4, DD. UNIT=PRINTER2DCB=PRTSP=1 

IJFTOAFOO’ OD % iy WEATHER DATA FOLLOWS 
siti Weathen Data. tite ti 

/¥ INDICATES END, OF DATA 

[/ FORECAST, EXEC, PGM=FORCST 

[/FT20FOO1, DD | DSNAME=WEATHER(+1) :DISP=OLD 

/IFT21F@O1, DD , DSNAME=WEATHER(Z) 9SEP=FT 20 F O01 »DISP=0 OL 

I/FT22FOG1, DD, DSNAME=WEATHER(-1).2DISP=OLD Eh aly lant ate tapas tad 

(/JFI2Z3FOO1, OD | OSNAME=WEATHER(-2) D1SP=OL0 i ty 

LU ROSOOL) “DD i UNTT EP RENTER jot aoe ea.tanciacg octek acne ll ten AS tale alist ches wales | 

















Figure 66. Job Control Statements for Example 3 


a 
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mses 
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The EXEC statement defines the first 
step CREATE to the operating system and 
indicates the execution of the load module 
FILECR in the PDS WTHRPR. 


DD statement FTO8F001 defines the new 
member of the generation data group. A 
member of the class of devices HYPERT is 
used for the data set, and mounting of the 
volume is deferred (DEFER). The DISP pa- 
rameter indicates a new data set (NEW) and 
that it is cataloged (CATLG). The label 
parameter indicates standard labels are 
written and the retention period is 30 
days. The DCB parameter indicates fixed- 
length records (RECFM), each 400 characters 
long (BLKSIZE). 


DD statement FTO3F001 defines printed 
output. The DCB field indicates that the 
report is double-spaced. The SEP parameter 
indicates channel separation from the data 
set defined by DD statement FTO8F001. DD 
statement FTO1F001 indicates that the card 
data set is in the input stream. 


The second job step is defined by the 
EXEC statement FORECAST, which indicates 
that the load module FORCST is to be 
executed. The DD statements for data set 
reference numbers 20 through 23 retrieve 
members of the generation data group 
WEATHER. DD statement FTO3F001 indicates 
printed output for the weather forecast. 


Example 4 

A data set has been created that con- 
tains master records for an index of stars. 
Each star is identified by a unique six- 
digit star identification number. Each 
star is assigned a record position in the 


data 
in the star identification number. 
synonyms arise, records are chained. 


set by truncating the last two digits 
Because 


The following conventions must be 
observed in processing this data set: 


1. The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


2. A zero in the chain variable indicates 
that the end of a chain has been 
reached. 


3. The first variable in each star master 
record is the star identification 
field; the second variable in each 
Star master is the chain variable. 


4. Each record contains six other vari- 
ables that contain information about 
that star. 


Problem Statement: Figure 67 shows a block 
diagram illustrating the logic for this 
problem. 

A card data set read from the input 


stream is used to update the star master 
data set. Each record (detail record) in 
this data set contains: 


1. The star identification field of the 
star master record that the detail 
record is used to update. 


that are to be used to 
master. 


2- Six variables 
update the star 


When a star detail record is read, its 
identification field is randomized, and the 
appropriate star master record is read. If 
the correct star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 
record is to be created for that star. 


The last record in the star detail data 
set contains a star identification number 
999999 which indicates that processing the 
star detail data set is completed. 


67 is Similar to the 


evcent 


Explanation: Figure 


diagram shown in Figure 53, exce t 
67 includes blocks that describe updating 
variables in master records already present 
in the data _ set. (Figure 53 includes 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 67 is 
adapted to Example 4, whereas Figure 53 is 
more general. Figure 69 shows the FORTRAN 
coding for this program. 


Pinuro 
te a~y ed 


The star master record that contains the 


record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read, the identification 


variable is checked to determine if the end 
of the detail data set has been reached. 
The star detail records contain the vari- 
ables A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized; the result is placed 
in the variable NOREC, which is used _ to 
read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (ICHAIN), 
and six variables (T, U, V, W, Y, and 2) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
are compared to see if the correct star 
master is found. If it is not, then the 
variables containing the chain record num- 


bers are followed until the correct star 
master is found or a new star master is 
created. 
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Detail 
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Ident 
in Star Detail 
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No 


Stop Randomize Star 
Number to a 
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Read Star 
Master 
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Ident 
in Star Detail = 
Ident in Star 
Master 


Set Record Position 


in Read Statement 
= Chain Variable 





No 
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Master = 







Set Chain 
Variable = Record 
Location Counter 












Write 
Master 
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Set Record Position 
in Write Statement 
= Record 
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Increment 
Record Location 
Counter by 1 


Build Star 
Master Record 





Figure 67. 
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Record 


Update 
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Star Master 





Block Diagram for Example 4 










Job Control Statements: The program shown 


in Figure 69 is compiled and link edited, 
placing the load module in the PDS STARPGMS 
and assigning the load module the name 
UPDATE. The data set that contains the 
star master records was cataloged and 
assigned the name STARMSTR when it was 
created. Figure 68 shows the job control 
Statements needed to execute the module 
UPDATE. 


| Sample Coding Form | 


1-10 11-20 21-30 31-40 41-50 51-60 | ~-—~6I-70 71-80 
1 12]3/4[51617 18 /9[0] 1 [2/3/4/5i6[7/8 9/0: 1[213/4/5]6!7/8/9/0! | [2!3/4[5/6[7[8]s/oli Je[3l415!6]7 |s[s[ol i 12[3/41516]7/8/9{o] 1 [2/3/4156] 7/[8/9)o] | [2/3[4[516]7[s]9[o 
//STARDAUP, JOB 3239J-ASTRONOMER’ »MSGLEVEL=1 


// JOBLIB DD DSNAME=STARPGMS 9DI.SP=OLD 
i EXEC PGM=UPDATE tt. | 1ij|t ot fiuiits 4 et) Ae ets | 4 ttt on oe oo | : Pot fo po joj t yt +] {ott 1 
//FTG7FOO1, DD DSNAME-STARMSTRs DISP=OLD 






































//FT@1FO@1, DD ¥ STAR DETAILS FOLLOW 
Star Detail Data Set 
/* END, OF STAR DETAILS © 


Pea es a | 























Figure 68. Job Control Statements for Example 4 
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12 Pa 2835S | 


DENTIFICATION 
[ster [3] FORTRAN STATEMENT SEQUENCE 
We 5 $' 7475 76 7. 





DEFINE FILE 7 (20001 30y1E NEXT) = ees = | 








© READ RECORD CONTAINING [RECORD LOCATION COUNTER || |_| 

| IREADIC7 "1 9/101) TDSTRM> LOCRIEC Bes 

C READ! STAR DATA ANDI CHECK FOR! LAST, STAR DATA RECORD 

26 | READI(11102)IDSITRD» Aly Bo CoD 9E oF; 
ITF (IDSTRD-999 999 ) 2619799919 =n | 

C RANDOMIZE IDEINTIFI|CATION FIE|LD IN| STAR| DATA) AND READ [STAR MASTER 


NOREIC=IDSTRD/100 | vie 
27 | READCT’ NOREC 11103) IDSTRMaIT CHAIN TsUpVaXoNoz 


IC IS {THIS [CORRECT STIAR MAISTER 
| SC TEC TIDSTRDFIDSTIRM)21/.2292% | | ie ae es Raita Seen heen 


fea. 
L 
pense A 
3 | aaa 
IC IS |THERE] A CHIAIN vee eLE ene tA 
‘< } | | a ee | 
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az 
STAR MAS ER RECORD! AND WRITE| LAST| RECORD 


i > ICHA be 

MBER [TO BEGIN CONSTRUCTION OF NEW STAR MASTER UPDATE 

RECIORD LIOCATION COUNTER) BUILD NEW STAR MASITER RECORD 
C=LOCREC 


EC=LOCREGtI 



























































ASTE R| RECO 











C eke FOUND» UPDATE AND WRITE SITAR MASTER 


eM oe oe 


= | 
25 RITECT “NO REC31 03 )IDSTRM>sICHAINs ToU.VoWsYoz | : 
C GO TO READ NEKT "_STIAR DA - 4 RECORD 

GO TO 26 jes 

C IF 'CHAIN VARIABLE IN RECORD READ THEMEN STAR MASTER) IN THE CHIAIN 
23 










































































1 
NOREIC=ICHAIN ae oar 
COMI a oe is 
CIF [END OF STAR DATAsWRITE STAR MASTER |CONTAING RECORD LOCATION (COUNTER) 
99 LDSTIRM= | a 
“WRITE (7! 1/101 )IEDSTRM> LOCREC | 
STOP] 999919 dee zy 
401 | FORMAT(I6>I4) | — ar | i: 




















162 | FORMAT(T6ls6F 14). 3) | ae ee | 
103 | FORMAT(Téy 14) GIF20. 3)) | | es ase 















































Figure 69. FORTRAN Coding for Example 4 
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A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN main 


program. This section describes the link- 
age conventions that must be used by the 
assembler language subprogram to communi- 


cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the publications Assembler 


Language and Assembler (£) Programmer's 
Guide or Assembler (F) Programmer's Guide. 


SUBROUTINE REFERENCES 


The FORTRAN programmer can refer to a 
subprogram in two ways: by a CALL statement 
or a function reference within an arithme- 
tic expression. For example, the state- 
ments 


CALL MYSUB(X,Y,2Z) 
[=J+K+MYFUNC(L,M, N) 


refer to a subroutine subprogram MYSUB and 
a function subprogram MYFUNC, respectively. 


For subprogram reference, the 
generates: 


compiler 


1. An argument list in which the address- 
es of the arguments are placed to make 
the arguments accessible to the sub- 
program. 


2. A save area in which the subprogram 
can save information related to the 
calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Argument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
used aS arguments. Since the arguments are 
located in the main program, these address- 
es are locations within the main program. 
Each entry in the argument list is four 
bytes long and is aligned on a full-word 
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boundary. The last three bytes of each 
entry contain the 24-bit address of an 
argument. The first byte of each entry 
contains zeros, unless it is the last entry 
in the argument list. If it is the last 
entry, the first (leftmost) bit in the 


entry contains a 1. 


The address of the argument list is 
placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
save areas used by programs other than the 
Subprogram. The amount of storage reserved 
by the calling program is. 18 words. 
Figure 70 shows the layout of the save area 
and the contents of each word. The address 
of the save area is placed in general 
register 13. 


FORTRAN main programs do not save 
floating-point registers. If these reg- 
isters must be saved, the assembler lan- 


guage subprogram is responsible for saving 
and restoring these registers. 


Calling Sequence 


A calling sequence is generated to 
transmit control to the subprogram. The 
address of the save area in the calling 
program is placed in general register 13. 
The address of the parameter list is placed 
in general register 1, and the entry 
address for the subprogram is placed in 
general register 15. An instruction is 
then generated to branch to the address in 
the general register 15 and to save _ the 
return address in general register 14. 
Table 15 shows a summary of the use of 
general registers. 
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(ear Soe 1 
| 
| | 
| | 
| AREA------ > p-------- - --- + + - +--+ + | 
| (word 1) {}This word is used by a FORTRAN-compiled routine to | | 
| |store its epilogue address and may not be used by the 1 | 
| jassembler language subprograms for any purpose. | | 
| AREA+ 4---~—> | -------~-~--------------~--~--~----- ---+-- ---- ------- ---- - - - -- -- = = - 4 | 
| (word 2) |If this program which calls the assembler language subprogram is itself a| | 
| |subprogram, this location contains the address of the save area of the| | 
| jcalling program. Otherwise this location is not used. | | 
| AREA+8——-—> }-~-------—---~——-----~+-----~-~--+-~--~----+-++---- +--+ --- +--+ +--+ +--+ +--+ == + i | 
| (word 3) |The address of the save area of the subprogram called by this program. | 
| | | | 
| | | | 
|] AREAt+12---> }------------------------------------ -- + + -- - -- + - -- - - -- - - + - - 1 | 
| (word 4) |The contents of register 14; that is, the address to which the subprogram| | 
| Jreturns. If a subprogram returns to this program, the first byte of this] | 
| Jlocation is set to ones, indicating that the called sukprogram has| | 
| {returned control. i | 
| AREA+16---> }-~-------—-+------+----------------+------+-------------------------------- {| 
| (word 5) |The contents of register 15; that is, the address to which entry to the| | 
| jsubprogram is made. 1 | 
| AREAS 0232) 43s See ea oe ee a ee eee ae ee 4 | 
| (word 6) |The contents of register 0. ] { 
| 1 | 
fone a ee a ee ee ea ae oe ee res 4 | 
| . | . | | 
| : | : | | 
: | . | | 
] AREA+ 6 8---> }--------—----------—----- -- - - --—-- - -- + - = - - $n 1 | 
| (word 18) |The contents of register 12. i | 
| | | | 
| Vee ee bh eee Sa at eh ge ee J | 
| | 
| 
| | 
a i a a et le i le ees 4 
Figure 70. Save Area 

Table 15. Linkage Registers 

(SS2o oe oo eg a a a ye eee ms eg ey ee 1 
jRegister |Register Name] Function | 
| Number | | j 
}--------- }-------------}------------~-----------------------------------------------=-- { 
| 0 | Result |Used for function subprograms only. The result is returned in | 
| | Register {general or floating-point register 0. (For subroutine subpro-| 
| | |grams, the result(s) is returned by the subprogram in af| 
| | |variable(s) passed to the subprogram by the programmer in his| 
| | |CALL statement.) | 
|--------- fermen nnn nnn fn nr { 
| 1 |Argument List|Address of the argument list passed to the called subprogram. | 
| | Register | | 
}--------- $----=-------- aa aE SEES ome Gran REE SE EO LG Pretec 1 
} 13 | Save Area |Address of the area reserved by the calling program in which | 
i | Register {the contents of registers are stored by the called program. | 
[--------- fanaa nnn nf nnn nn nnn nn nnn nnn nn nnn nnn nnn rn rrr { 
{ 14 | Return {Address of the location in the calling program to which control| 
| | Register jis returned after execution of the called program. | 
p--------- }------------- }--------------------------------------------------------~------ 
} 15 | Entry Point |Address of the entry point in the subprogram. ; 
| | Register | | 
ds a i ee cc Ss a a ee ee lh ta J 


CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 


Two types of assembler language subpro- 
grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does call another subpro- 
gram. 


Coding a Lowest Level Assembler Language 
Subprogram 


For the lowest level assembler language 


subprogram, the linkage instructions must 

include: 

1. An instruction that names an entry 
point for the subprogram. 

2. An instruction(s) to save any reg- 


isters used by the subprogram in the 
save area reserved by the calling 
program. (The contents of linkage 
registers 0 and 1 need not be saved.) 


3. An instruction(s) to restore the 
"saved" registers before returning 
control to the calling program. 


4. An instruction that sets the first 
byte in the fourth word of the save 
area to ones, indicating that control 
is returned to the calling program. 


5. An instruction that returns control to 


the calling program. 


Figure 71 shows the linkage conventions 


does not call another subprogram. In addi- 
tion to these conventions, the assembler 
program must provide a method to transfer 


arguments from the calling program and 
return the arguments to the calling pro- 
gram. 


Sharing Data_in COMMON 


With FORTRAN (E), general register 4 
contains the address of the COMMON area. 
If the size of the COMMON area exceeds 4095 
bytes, additional registers (e.g., register 
5, 6, and 7) are assigned consecutively. 


Higher Level Assembly Language Subprogram 


A higher level assembler subprogram must 
include the same linkage instructions as 


the lowest level subprogram, but because 
the higher level subprogram calls another 
subprogram, it must simulate a FORTRAN 


subprogram reference statement and include: 


1. A save area and additional instruc- 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


3. An assembler instruction that indi- 
cates an external reference to the 
Subprogram called by the higher level 
Subprogram calls. 


Se SSeS a ee eS See eee eS eS 1 


BRANCH AROUND CONSTANTS IN CALLING SEQUENCE 
m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM 
STARTS ON A HALF-WORD BOUNDARY. 


THE NAME CAN BE PADDED 


| 
4 
| 
| 
| 
| 
THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE | 
STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY| 
NUMBER FROM 0 THROUGH 12. | 
ESTABLISH BASE REGISTER (2<12) | 
| 
| 
| 
| 
| 
| 
| 
| 
4 


INDICATE CONTROL RETURNED TO CALLING PROGRAM 


for an assembler language subprogram that 
(3 Ae Pe ey re ce ee 
| Name |Oper. |Operand Comments 
}---------}------ }~-------------------------- 
{deckname |START |0 

| {Bc }15,m+1+4 (15) 

| | DC |X*m'‘ 

| | De | CLm*name'* 

| * | | WITH BLANKS. 

| | STM }14,R,12(13) 

[ | | 

ig | | 

| |BALR |B,0 

| {USING |¥*,B 

| Juser |written source statements 

| | i 

| | | 

| | | - 

| | LM {2,R, 28 (13) RESTORE REGISTERS 
| | MVI J12(13) ,X*FF' 

| | BCR {15,14 RETURN TO CALLING PROGRAM 
bons oe Seen Sa eo enema Pe re rn ae PE ce 
Figure 71. Lowest Level Assembler Subprogram 
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4, Additional instructions in the return In-Line Argument List 
routine to retrieve entries in the 
save area. 
The assembler programmer can establish 
Figure 72 shows the linkage conventions an in-line argument list instead of an 
for an assembler subprogram that calls out-of-line list. In this case, he deletes 
another assembler subprogram. the argument list shown in Figure 71 and 
substitutes the calling sequence shown in 
Figure 73 for that shown in Figure 71. 
ieee aes Kear ela Ta a ee ae 1 
| Name jOper. |Operand Comments | 
}---------+------ }---------------------------------------------------------------------- { 
|deckname |START |0 | 
| |EXTRN !nameg NAME OF THE SUBPROGRAM CALLED BY THIS SUBPROGRAM | 
| | BC }15,m+1+4(15) | 
| {Dc |X‘m' | 
| | Dc |] CLm ‘name, | 
| * | |SAVE ROUTINE | 
| | STM ]14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE | 
| | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY| 
| | | NUMBER FROM 2 THROUGH 12. | 
| |BALR |B,0 ESTABLISH BASE REGISTER | 
| {USING |*,B 
| | LR |Q,13 LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE | 
| * | | CALLING PROGRAM, INTO ANY GENERAL REGISTER, Q, EXCEPT 0,| 
| * | | 1,513, and. 15. | 
| | LA 13, AREA LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO | 
| * | | REGISTER 13. | 
| | ST j13,8(0,Q) STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE | 
| + | | CALLING PROGRAM'S SAVE AREA | 
| | ST {Q,4(0,13) STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE | 
| * | | AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- | 
| * | | GRAM'S SAVE AREA | 
| [BC | 15, probs | 
| AREA |Ds )18F RESERVES 18 WORDS FOR THE SAVE AREA | 
| * | JEND OF SAVE ROUTINE | 
|proby juser |written program statements | 
| = | | 
| | - 
| | - | | 
| * | {CALLING SEQUENCE | 
| | LA |1, ARGLIST LOAD ADDRESS OF ARGUMENT LIST | 
| |L {15,ADCON | 
| JBALR [14,15 | 
| jmore |user written program statements | 
| | - | | 
| | - | 
| | - | | 
| * | |RETURN ROUTINE | 
| jL j13, AREFA+4 LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO | 
| * | | REGISTER 13 | 
| | LM }2,R,28(13) | 
| | L J14,12(13) LOADS THE RETURN ADDRESS INTO REGISTER 14, | 
| | MVI [AZhL Sy yk | 
| | BCR {15,14 RETURN TO CALLING PROGRAM | 
| * | |END OF RETURN ROUTINE | 
| ADCON {Dc {A(name2) | 
i * | ARGUMENT LIST | 
| ARGLIST j DC {AL4 (arg,) ADDRESS OF FIRST ARGUMENT | 
| = | | 
| pl | 
| |DC |x'80* INDICATE LAST ARGUMENT IN ARGUMENT LIST | 
| {DC |AL3 (argn) ADDRESS OF LAST ARGUMENT | 
base Eee a i a he ha ee et ee ee a es ad) J 
Figure 72. Higher Level Assembler Subprogram 
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ole ast hd ae Se a 4 
[Name | Oper. loperana | 
<a | AB RSG SR srcannAC aCe aaa acinar | 
| ADCON jDc j|A(prob1) | 
| [we . 4 | 
| | . | | 
| be 4 | 
| [LA |14,RETURN | 
| |L {15,ADCON | 
j jCNOP {2,4 j 
| |BALR |1,15 | 
| jDc | AL4 (arg,) | 
| | - | | 
| | - | | 
| l. | 
| [Dc |X*"80" | 
| [Dc | AL3 (argn) | 
J|RETURN [BC |0,X‘isn' | 
bieseeS Sess p eon eres MS ee Sa Sa a ee ees J 
Figure 73. In-Line Argument List 


GETTING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. For example, when the state- 
ment 


CALL MYSUB(A,B,C) 


is compiled, the following argument list is 
generated. 


arena scat Sa a aa a a | 
|00000000] address for A | 
}-------- }----------------------------~--- : 
{00000000 | address for B | 
-------- }---~---------------------------- 
egee eee address for C | 
ge Sedan BR eet ee tet re ee a td 


For purposes of discussion, A is a double- 
precision variable, B is a subprogram name, 
and C is an array. 


The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
double-precision variable A to location VAR 
in the subprogram. 


L Q,9(1) 
MVC VAR(8),0(0) 
where: 


Q is any general register. 


For a subprogram reference, an address 
Of a storage location is placed in the 
argument list. The address at this storage 
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location is the entry point to the 
Subprogram. The following instructions can 
be used to enter subprogram 8B from the 
subprogram to which B is passed as an 


argument. 
L O,4(1) 
L 15,0(Q) 
BALR 14,15 
where: 


Q is any general register. 


For an array, the address of the first 
variable in the array is placed in the 
argument list. An array [for example, a 


three-dimensional array C(3,2,2)] appears 
in this format in main storage. 

C(1,1,1) C(2,1,1) C(3,1,1) c(1,2,1)--, 
Cet2,2,4) €(3,2,) et ,1,2) C12,1,20— 
(0(3,1,2) C(1,2-2) (2,242) (3,252) 


Table 16 shows the general subscript format 
for arrays of 1, 2, and 3 dimensions. 


Table 16. Dimension and Subscript Format 
Sa a eA ‘ 
| Array A subseripe Format | 
[----------- }-~--------------------------- { 
JA(D1) JA(S1) 


| 
jA(Di,D2) = |A(Si, $2) 
JA(D1,D2 73) |AtS1 S2,S3) | 


piesa ed 
|D1, D2, meg D3 are integer constants used| 
Jin the DIMENSION statement. S1, S2, and| 
|S3 are subscripts used with subscripted| 
!variables. | 
LSet ee eee ein oe ce ea ee Soa J 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are 


DISPLC =(S1-1)*L 
DISPLC =(S1-1) *L+ (S2-1) *D1*L 
DISPLC =(S1-1) *L+ (S2-1)*D1*L+ (S3-1) *D2*D1*L 


where: 
L is the 
the array. 


length of each variable in 


For example, the real variable C(2,1,2) 
in the main program is to be moved to a 
location ARVAR in the subprogram. Using 
the formula for displacement of variables 
in a three-dimensional array, the displace- 
ment is calculated to be 28 and placed in 
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the general register DISP. The following 


instructions can 
able 


be used to move the vari- 


L QO,8(1) 

LE S,0(0,DISP) 
STE S, ARVAR 
where: 


QO, R, and §S 


are general registers. 


Example: An assembler language subprogram 
is to be named ADDARR, and a real variable, 
an array, and an integer variable are to be 
passed aS arguments to the subprogram. The 
statement 


CALL ADDARR (X,Y,J) 
is used to call the subprogram. Figure 74 


shows the linkage used in the assembler 
subprogram. 


aaa eat eae am mcie Toa eo Sa a a aa a ls 1 
| Name |Oper. |Operand | 
~--------}------ }----------------------------------------------------------------------4 
| ADDARR |START |0 | 
|B {EQU [8 | 
| | BC }15,12(15) | 
| [pc | X"7" | 
| |DC |CL7"ADDARR' | 
| ADDARR | STM {14,12,12(13) | 
| |BALR |B,0 | 
| |USING |*,B 
| |L \2,8(1) MOVE THIRD ARGUMENT TO THE LOCATION CALLED INDEX IN | 
| |MVC J INDEX(4),0(2) THE ASSEMBLER LANGUAGE SUBPROGRAM. 
| |L }3,0¢1) MOVE FIRST ARGUMENT TO THE LOCATION CALLED VAR IN THE | 
| |MVC | VAR(4) ,0(¢3) ASSEMBLER LANGUAGE SUBPROGRAM | 
| |L 14,4(1) LOAD THE ADDRESS OF THE ARRAY TO GENERAL REGISTER 4. | 
| {L 14,44) | 
| | {User Written Statements | 
| | iii 6 | 
| | [> 2s | 
| | |. | 
| | LM j14,12, 28413) | 
| | MVI [,12(13),X"FF* | 
| | BCR {15,14 | 
| [Ds | OF | 
| INDEX |DS |1F | 
| VAR {DS fa oy | 
toe [ee Be a a a eI a aa es ee a ee ee J 


Figure 74. Assembler Subprogram Example 
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APPENDIX C: STORAGE MAP FOR LOAD MODULE EXECUTION 

Figure 75 shows a storage map for load f------ - + 1 
module execution. The superscripts shown j|Resident and Transient Control Program | 
in the figure indicate one of the notes _— }-----~----~-------------------------~----- 4 
listed in this appendix. {First FORTRAN Object Module | 
ae ye Pa ee eee Ed RE Pa ee Oe, a eR oT 4 

|COMMON Areat | 

is ace oat ei teeta ee ee ea 4 

|Second FORTRAN Okject Module | 

Note 1: The COMMON area is inserted into  }-~~---------~---~-------~~---~----+---~~----+-+-- 4 
the load module after the first object ]}Third FORTRAN Object Module | 
module that refers to it. For example, if }---------------------~-------------------- | 
the first object module does not refer to | . | 
COMMON and the second object module does, | ; | 
the COMMON area follows the second object | : | 
module. t--------~----—---------~-------------------- 1 
|Last FORTRAN Object Module | 

St a ig ee 4 

JExplicitly Referenced Library Subprograms | 

atte as ale aaa i ee ee ons 4 

Note 2: Buffers for direct access data [Implicitly Referenced Library Subprograms] 


sets are extended upward in main storage as 
buffers are needed. 


Note 3: The order in which IOBs are placed 
in main storage is dependent on the 
sequence of I/O operations. The IOBS can 
be located anywhere in upper main storage. 


Note 4: The routines for direct access I/0 
are loaded into main storage when a direct 
access data set is defined by a DEFINE FILE 
statement. The routines for sequential I/O 
are loaded into main storage when a sequen- 
tial data set is first used. 


Note 5: A DCB is allocated for every data 
set reference number used by the load 
module. 
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|Transient Work Area Required of Every | 
{Load Module for Use by the Control Pro-| 


JInput/Output Blocks (IOBs) Containing | 
JInformation Concerning the Interface}| 
[Between FORTRAN Execution Time I/O Rou-| 
Jtines and the Control Program? | 


|Control Program Routines for Performing| 
jDirect Access I/O and Control Program| 
}Routines for Sequential I/0* | 


}---------------~---------------—--------- { 
|Data Control Blocks (DCBs) Containing| 
JInformation Concerning the Use of Each| 
|Data Set ® | 
Sota eto et ae ee ee oe oe ee ee | 


|Task Input/Output Table (TIOT) Containing] 
JInformation such as jobname, stepname, | 
jand ddname for each data set used by the| 


Jstep | 
}----------------------------------------- { 
|Register Save Area for the Control Pro-| 
| gram | 
ao ie eh ee eae ee J 
Figure 75. Load Module Execution Storage 


Map 
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APPENDIX D: SYSTEM DIAGNOSTICS 


This appendix contains a detailed de- 
scription of the diagnostic messages pro- 
duced during compilation and load module 
execution. 


COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic mes- 
sages are generated - informative and 
error/warning. 

Compiler Informative Messages 
Four informative messages are generated 


by the compiler to inform the programmer or 
operator of the status of the compilation. 
The message and any compiler action taken 
is shown. 


LEVEL: rmthyr 
FORTRAN IV (E) COMPILATION 


IBM OS/360 BASIC 
DATE: yy.ddd 


Explanation: This message is gen- 
erated at the beginning of every 


compilation. The level number (r) 
and date (mthyr) of the compiler 
is given by “rmthyr". The number 
of the day (ddd) in the year (yy) 
that the compilation takes place 
is given by "yy.ddd". 


IEJ001I COMPILER OPTIONS IN EFFECT: 
{[SOURCE, ] [BCD,] (MAP, ] [DECK, ] 
eee 
(LOAD, ] L[ADJUST, ]|PRFRM, 
(NAME=xxxxxx, ]ISIZE=yyyyyyy, 


LINELNG=Z2zZz 


Explanation: This message occurs 
for every compiler job step. All 
bracketed options appear, if they 
are specified or assumed by 
default. 


SIZE OF COMMON xxxxx PROGRAM yyyyy 


Explanation: This message is gen- 
erated before the end of every 
compilation. The number of bytes 


needed to contain the COMMON area 
is the decimal number xxxxx. The 
number of bytes needed to contain 
the program (instructions generat- 
ed by the compiler, constants, and 
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variables not assigned to COMMON, 
etc.) is the decimal number 
YYYYY- 

END OF COMPILATION 
Explanation: This message indi- 


cates that a compilation is suc- 


cessfully completed. 


Compiler Action: If this message 
is not generated by the compiler, 


the compilation was terminated 
abnormally and a condition code of 
16 was generated because of inter- 
nal errors. 


Compiler Error/Warning Messages 


The following text contains a descrip- 
tion of error/warning messages produced by 
the compiler. The message is shown with an 


explanation, and any compiler action or 

user action that is required. Unless oth- 

erwise specified, messages preceded by 

“WARNING" generate a condition code of 4; 

other messages generate a condition code of 

B; 

IEJO02I ONE OR MORE INVALID COMPILER 
OPTIONS IN *PARM' FIELD 
OPTION(S) IGNORED 
Explanation: An invalid compiler 
option is specified in the PARM 
field of the EXEC statement. 
Compiler Action: The compilation 
proceeds using only the specified 
valid compiler options and 
defaulted options. 

IEJ003I ‘NAMES OPTION TOO LONG - TRUNCATED 
Explanation: The name specified 
for the compiler option 
NAME=xxxxxx is longer than six 
characters. 


Compiler Action: The characters 
beyond the sixth position are 
truncated and the compiler pro- 
ceeds as if the truncated name had 
been specified. 


IEJOO4T 


a ae 


LBUUUOL 


IEJOO06I 


IEJO07I1 


MISSING OR ERRONEOUS DD STATEMENT 


\ sysom 
FOR ! SYSUT2 


SYSLIN 
SYSPUNCH 


| XXXKXXXX 


SYSIN | 


Explanation: A DD statement is 
not supplied or the ddname is 
mispunched for the DD statement 
indicated in the message. i Ob 
another program passes control to 
the compiler, then a DD statement 


XXXXXXXK passed as a parameter is 


missing. 


Compiler Action: A condition code 
of 16 is generated for the omis- 
sion of SYSIN. The compilation is 
terminated. The compilation pro- 
ceeds if any other ddnames are 
omitted. If SYSLIN is omitted, a 
condition code of 12 is generated 


and the compiler assumes NOLOAD, 
even though the programmer may 
have specified LOAD. For the 


omission of SYSPUNCH, the compiler 
assumes NODECK, even though DECK 
may have been specified. 


NO INPUT FOUND 


Explanation: A source module is 
nonexistent; that is a DD ¥* state- 
ment defining the location of the 
source module for the compiler is 
immediately followed by a delim- 
iter statement. 


Compiler Action: A condition code 
of 16 is generated, and control is 
returned to the control program. 


INSUFFICIENT STORAGE. SPACE 


OPTION IN EFFECT 


Explanation: The PRFRM option is 
specified; however, there is not 
enough main storage available for 
the PRFRM option. 


Compiler Action: The SPACE com- 
piler option is assumed, and the 
compiler begins the compilation 
again. 


INSUFFICIENT STORAGE FOR COMPILA- 
TION 


Explanation: Blocked compiler I/O 
is specified with the PRFRM 
option; however, there is not 


IEJOO08I 


IEJO101 


IEJO0111 
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enough main storage available for 


the PRFRM option. 


Compiler Action: The compilation 
is terminated, and a condition 
code of 16 is issued. 


INVALID BLKSIZE SPECIFICATION 


Explanation: The BLKSIZE subpa- 
rameter specified in a DD state- 
ment is not an integral multiple 
of the specified LRECL value for 
that data set. 


Compiler Action: The compilation 
is terminated, and a condition 


code of 16 is issued. 


I/O ERROR, 
KXXe oe ve XXX 


COMPILATION TERMINATED, 


Explanation: An irrecoverable 
input/output error was encountered 
during compilation, which makes 
continuation impossible. 

XXK...XXX is the character string 
formatted by the SYNADAF macro 
instruction. For an interpreta- 
tion of this information, see IBM 


System/360 Operating System: 


Supervisor and Data Management 
Macro-Instructions, Form C28-6647. 


Compiler Action: Compilation is 


terminated, and a condition code 
16 is generated. 

I/O ERROR, "DECK' CANCELED, 
XXX. «XXX 

Explanation: An irrecoverable 


error waS encountered during an 
Output operation on the data set 
defined by SYSPUNCH. xxx...xxx is 
the character string formatted by 


the SYNADAF macro instruction. 
For an interpretation of this 
information, see IBM System/360 


Operating System: Supervisor and 


Data Management Macro- 
Instructions, Form C28-6647. 


Compiler Action: The DECK option 


is changed to NODECK, and 
compilation continues. In the 
case of multiple compilations, 


only the last (partial) deck punch 
need be discarded. 
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IEJ0331 


IEJ0341 


IEJ0351 


|— 


(9) 


ARRAY MUST BE DIMENSIONED ON ITS 
FIRST AND ONLY ITS FIRST OCCUR- 
RENCE 

Explanation: The dimension of an 
array must be given in either a 
DIMENSION, COMMON, or Explicit 
Specification statement prior to 
its use in any other statement and 
can never be redefined. 


ILLEGAL USE OF FUNCTION NAME 


Explanation: 
not appear in 
COMMON statement. 


A function name may 
an EQUIVALENCE or 


EQUIVALENCE TABLE FULL 


Explanation: There are too many 
equated variables. 


User Response: See "Compiler Re- 


strictions." 


INTEGER TOO BIG 


Explanation: Integer is larger 
than maximum size allowable 
(i.e., larger than 224-1 or 
2,147,483,647), or the number of 
records specified in a DEFINE 
FILE statement exceeds 25% 
(16,7 77,116). 

WARNING -- FIRST CARD IS CONTINUA- 
TION 

Explanation: First non-comment 


statement was a continuation line 
(i.e., a nonzero character, other 
than a blank, was encountered in 
column 6.) 


Compiler Action: The statement is 
processed as if it were the ini- 
tial line of a statement. 


SUBPROGRAM CARD NOT FIRST 


Explanation: A FUNCTION or 
SUBROUTINE statement appears after 
the first statement in a program. 
For example, the first card in a 
subprogram (other than a comments 
card) is not a FUNCTION or 
SUBROUTINE statement. 


ARGUMENT MISSING IN FUNCTION DEFI- 
NITION 
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IEJ0371I 


IEJ0381 


IEJ0391 


IEJO41I 


IEJO42T 


IEJO431 


Explanation: Function definition 
(either in Statement Function or 
FUNCTION header statement) must 
have at least one argument. 


ILLEGAL CHARACTER 


Explanation: Character is not 


recognizable. 


The character is 
delimiter, which 


Compiler Action: 
taken to be a 


should be either 
b- *.,+/z=() 


or Column 73, where b is a blank. 
INVALID STATEMENT OR STATEMENT 
NUMBER 

Explanation: For example, an 


equal sign is missing in a State- 
ment Function Definition or an 
arithmetic statement. A left 
parenthesis is missing in an IF 
statement or an illegal delimiter 
precedes the statement. 


SEQUENCE ERROR 





Explanation: All specification 
statements (DIMENSION, EQUIVAL- 


ENCE, REAL, INTEGER, DOUBLE PRECI- 
SION, COMMON) must precede all 
Statement Function Definition 
statements. All Statement Func- 
tion Definition statements must 
precede all executable statements. 


MORE THAN 6 CHARACTERS IN NAME 


MULTI-DEFINED OR ILLEGAL NAME 


name is defined 


Explanation: A 


more than once or an illegal name 
is used as a variable. For exam- 
ple, a real variable is redefined 


aS an integer variable. 


MULTI-DEFINED STATEMENT NUMBER 


Explanation: This statement num- 
ber has been used previously. 
Every statement number should he 
unique, and associated with only 
one statement in a program. 


ILLEGAL USE OF RESERVED WORDS 


When NOADJUST is 
reserved word must 


Explanation: 
specified, a 


IEJO44l 
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IEJO501I 


IEJO0511 


IEJ0521 


not be used as a variable, array, 
or subprogram name. 

TOO MANY DECIMAL POINTS 
Explanation: Only one decimal 
point can appear in a real or 


double-precision number. 


DECIMAL POINT AFTER E 
Explanation: A decimal point has 


been found in the exponent part of 
a real or double-precision number. 


TOO MANY E'S 


Explanation: A second E has’ been 
found in a number (e.g., 2, 7E2E2). 


ILLEGAL NUMBER OR NAME 


Explanation: Illegal use of a 
number. For example, in the 
statement, DIMENSION 5 (1,2), the 
number 5 iS not a proper array 
name. 


MORE THAN 3 DIMENSIONS 


Explanation: Maximum number of 
dimensions permitted in an array 


is three. 


DIMENSION ERROR 


Explanation: Illegal delimiter or 
Size of an array exceeds 131,071 
bytes in a COMMON, DIMENSION, or 
Explicit Specification statement. 


CANNOT EQUATE 


At least two vari- 
ables or subscripted variables 
should appear in the parentheses 
of an EQUIVALENCE statement. 


Explanation: 


WARNING -- COMMA WISSING 


Explanation: A required comma was 
not encountered. 


Compiler Action: The statement is 
compiled as through a comma were 
there. 


WRONG DIMENSION 


Number of subscripts 
used does not 


Explanation: 
in the variable 


IEJO0531 
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correspond to the number of sub- 
scripts in the array as defined in 


a COMMON, DIMENSION, or Explicit 
Specification statement. 

SUBSCRIPT ERROR 

Explanation: The subscript 
expression contains more than 
three subscripts, an illegal deli- 
miter, or an illegal variable. 
INVALID ARGUMENT IN ASF 
Explanation: An illegal symbol 
appears aS an argument in the 


Statement Function argument list. 
For example, SF(A,B,*,C) or 
SF(A,B,C) where € iS an array. 


INVALID ARGUMENT IN HEADER CARD 


Explanation: An illegal variable 
or a multidefined variable appears 
in the function definition argu- 
ment list. 


ILLEGAL STATEMENT NUMBER FIELD 


Explanation: Statement number 
list in a computed GO TO or in an 
arithmetic IF statement is inval- 
id. 





DATA SET REFERENCE NUMBER MISSING 


There is no data set 
reference number specified, for 
example, WRITE(,10), or the data 
set reference number is multiply 
defined. 


Explanation: 


LEFT PARENTHESIS MISSING AFTER R/W 


Explanation: The left parenthesis 





in a READ or WRITE statement is 
missing. For example, in the 
statement: WRITE3,10), the left 
parenthesis before the 3 is miss- 
ing. 

ERROR IN VARIABLE 

Explanation: Symbol in an 
EQUIVALENCE statement is not a 
variable, for example, EQUIVALENCE 


(10,B), or is a dummy variable. 


WARNING <-- STATEMENT CANNOT BE 


REACHED 
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IEJO661I 


IEJO0671 


IEJ068I 


IEJO069T 


IEJO701I 


[ey 
> 
oO 


Explanation: 
a GO TO, IF, RETURN, 
no Statement number. 


Statement following 
or STOP has 


EQUIVALENCE SUBSCRIPT ERROR 


Explanation: There is an illegal 
delimiter or a missing subscript 
in an EQUIVALENCE subscript. 


TOO MANY 
NUMBERS 


SYMBOLS AND STATEMENT 


Explanation: The Dictionary and 
Overflow Table have overflowed, or 
the total number of statement num- 
bers referred to (excluding FORMAT 
statement numbers), DO statements, 
and statement functions exceeds 
1000. 


User Response: Subdividing the 
program or reducing the number of 


symbols and statement numbers is 
necessary. 
INVALID STATEMENT NUMBER OR 


PAUSE/STOP NUMBER 


Explanation: Either there is an 
alphabetic or illegal character in 
the number, or there are more than 
five digits in the number. 


BACKWARD DO LOOP 
Explanation: The statement speci- 
fied in the range of the DO state- 


ment may not precede the DO state- 
ment. 


INVALID DATA SET CONTROL CHARACTER 


Explanation: The FORMAT control 
specification in the DEFINE FILE 
statement is not L, E, or U. 


ERROR IN EXPONENT 


An exponent is miss- 
real or 


Explanation: 
ing or is too large ina 


double-precision number. 
TOO MANY ARGUMENTS IN ASF 


than 15 argu- 
defi- 


Explanation: More 
ments in Statement Function 


nition is not permitted. 


INVALID FUNCTION NAME 


IEJO711 
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IEJO751I 


IEJO76I 


IEJO771 


IEJ078I 


subprogram 
SUBROUTINE 


Explanation: Invalid 
name in a FUNCTION or 
header Statement. 


ILLEGAL SUBROUTINE NAME 


Explanation: Illegal delimiter or 
illegal subroutine name in a CALL 
statement. 


ASF OUT OF SEQUENCE 


Explanation: Statement Function 
statement is out of sequence or an 
array is not dimensioned prior to 
its first use. 


TRANSFER TO NON-EXECUTABLE STATE- 
MENT 


The statement number 
by a GO TO, computed 
GO TO, or an arithmetic IF state- 
ment is a FORMAT or specification 
Statement. 


Explanation: 
referred to 


VARIABLE ALREADY IN COMMON 


Explanation: A variable appears 
in COMMON more than once or an 
inconsistent equate was made 
(e.g., the statement COMMON 


(A,B,C,A) is illegal). 


UNFINISHED STATEMENT 

Explanation: A FORMAT statement 
is not finished. 

PARENTHESIS ERROR 

Explanation: A parenthesis is not 


closed or is missing. The paren- 
theses are not nested properly. 


Compiler Action: The compiler 
cannot assume their position. 


ILLEGAL DELIMITER OR MISSING NAME 


Explanation: An improper delimi- 


ter or illegal special character 
was encountered. 

ILLEGAL END DO 

Explanation: The last statement 


in the range of a DO loop’ cannot 
be a nonexecutable statement, 
Arithmetic IF, GO TO, PAUSE, 


IEJ0791 
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ITEJ0821 


ITEJ0831I 


IEJO84T 


IEJO85I 


IEJ0861 


RETURN, Or another DO state- 


ment. 


STOP, 


TYPE MUST BE INTEGER SCALAR 


Explanation: The DO variable, com- 
puted GO TO variable, or the asso- 
ciated variable in a DEFINE FILE 
statement must be a non- 
subscripted integer variable. 


COMMA MISSING 

Explanation: A required comma was 
not encountered. 

Compiler Action: The compiler 
cannot assume its position. 
ILLEGAL FORMAT SPECIFICATION 
Explanation: Illegal decimal 
point or a number is missing fol- 
lowing decimal point. 

INVALID NUMBER 


Explanation: There is an error in 


an integer, real, or double- 
precision number. 
ERROR IN INTEGER 
Explanation: Number zero not 


allowed in most FORMAT specifi- 
cations, a DIMENSION statement, or 
in a subscript. 


MORE THAN 4 WARNINGS IN STATEMENT 


Explanation: More than four warn- 
ings have been generated for a 
statement. 


Compiler Action: The compilation 
of the statement is terminated. 


THIS MESSAGE IS A COMPILER ERROR 


Explanation: Compilers working 
text contains meaningless code. 


Compiler Action: Compilation con- 


tinues,. 


ILLEGAL BLANK 


When NOADJUST is 
illegal embedded 
the FORMAT 


Explanation: 
specified, an 
blank is found in 
statement. 


IEJO871 


IEJO881 


IEJO089I 


IEJO90I 


IEJ0911 


IEJ0921 


IEJ093I 


IEJO94T 


NUMBER MISSING 


Explanation: A number is missing 
in EB, F, TT, Ay Ll, D; Or X conver- 
Sion code or an illegal delimiter 
precedes the number. 


NESTED PARENTHESIS 

Explanation: Not more than one 
level of nested parenthesis is 
permitted in a FORMAT statement. 
ILLEGAL DATA SET REFERENCE NUMBER 


Explanation: Data set reference 
number must be an integer variable 


or a constant within the range 1 
to 99. 

APOSTROPHE NOT CLOSED 

Explanation: An apostrophe was 


not found terminating the literal 


data in a FORMAT statement. 


ILLEGAL SIGN 


Explanation: A P Format code or a 
blank are the only legal delim- 
iters following a plus or minus 
Sign in a FORMAT statement, unless 
the sign appears in literal data. 


ILLEGAL COMMA 


Explanation: An erroneous comma 
appears in a FORMAT statement. 


NOT IN INTEGER MODE 


Explanation: The associated vari- 
able indicating the relative posi- 
tion of a record in a direct 
access FIND, READ, or WRITE state- 
ment is not an integer variable. 


WARNING -- TOO MANY DECIMAL PLACES 


The number of deci- 
mal places must be less than the 
Size of the entire number in a 
FORMAT statement. The size of the 


Explanation: 


entire number is equal to the 
number of decimal places. 
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STATEMENT NUMBER REFERENCE NOT 
FORMAT STATEMENT 


Explanation: The statement number 
referred to in a READ/WRITE state- 
ment is not that of a FORMAT 
statement. 


ILLEGAL VARIABLE IN I/O LIST 


Explanation: The use of subpro- 
gram names or constants are not 
allowed in an I/O list. 

TOO MANY ELEMENTS IN LIST 
Explanation: The list in the 
READ, WRITE, or Computed GO TO 
statement contains too many ele- 
ments. There are approximately 
250 variables permitted ina sin- 


gle list. The use of implied DO's 
in READ/WRITE statement decreases 
the number of variables permitted. 


User Response: The statement 
should be divided into several 


Statements. 


NO CHARACTER BETWEEN APOSTROPHES 


Explanation: An open apostrophe 
is immediately followed by a close 


apostrophe in the FORMAT state- 
ment. At least one character 
should appear within the apos- 
trophes. 


TOO MANY CHARACTERS BETWEEN APOS- 
TROPHES 


Explanation: The number of char- 
acters appearing within apostrophe 
in the FORMAT statement is too 
large for the compiler to handle. 
That is, not more than 255 charac- 
ters should appear between apos- 
trophes in a FORMAT statement. 





ILLEGAL DO VARIABLE OR CONSTANT 


Explanation: DO parameter must be 
a nonsubscripted integer variable, 
Or integer constant. 


IEJ1231 
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FUNCTION NAME NOT ASSIGNED A VALUE 


Explanation: The function name is 
not defined in its function sub- 
program (i.e., it does not appear 
on the left side of an equal Sign, 
as a list item in a READ statement 
or aS an argument in a CALL 
Statement). 


NOT IN INTEGER MODE 


Explanation: The associated vari- 
able indicating the relative posi- 
tion of a record in a direct 
access FIND, READ, or WRITE state- 
ment is not an integer variable. 


DO VARIABLE’ REDEFINED 


Explanation: The same variable is 
used as the DO variable more than 
once in nested DO loops. 


FUNCTION ARGUMENT MISSING 


Explanation: An argument in a 
function reference is missing. 
THIS MESSAGE IS A COMPILER ERROR 
Explanation: Compiler's inter- 
mediate text contains meaningless 


code. 


Compiler Action: Compilation is 


terminated. 
INVALID CALL OR IF STATEMENT 
MULTI-DEFINED NAME OR KEYWORD 


A name is redefined, 
is used as a vari- 


Explanation: 
or a keyword 


able. 
ILLEGAL ARGUMENT 


An illegal argument 
call to a 


Explanation: 
is specified for a 
function or subroutine. 


WRONG MODE 
Explanation: The mode of the 
argument does not agree with the 


mode of the in-line function. 


IEJ1321 


IEJ1331 
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IEJ1361 
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IEJ1411 
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INCORRECT NESTING OF DO 


Explanation: The last statement in 
the range of the DO loop nested 
within other DO loops exceeds’ the 
range of one or more of those DO 
loops. 


ILLEGAL EQUAL SIGN 


Explanation: Two equal signs 


appear in the same statement. 


SUBSCRIPT OR ARRAY NOT ALLOWED 


Explanation: A subscript or array 
is not allowed in Statement Func- 
tion definition. 


UNDEFINED STATEMENT NUMBER 


The statement number 


Explanation: 
does not exist in the 


referred to 
program. 


NAME MISSING OR ILLEGAL DELIMITER 
Illegal delimiter 
found. For example, X=A+*B. A 
variable or constant is missing 
between the two operators or one 
of the operators is superfluous. 


Explanation: 


WRONG NUMBER OF ARGUMENTS IN CALL 


Explanation: The number of argu- 
ments in Statement Function ref- 
erence or in an in-line function 
reference does not agree with the 
function definition. 


TOO MANY PARAMETERS 


The maximum number 
allowed in a _subpro- 
definition is 48. 


Explanation: 
of arguments 
gram call or 


ILLEGAL SUBPROGRAM NAME 
Explanation: Name of a function 
or subroutine call is not defined 


as a function or subroutine sub- 
program name. 


MORE THAN 25 LEVELS OF DO NESTING 


Explanation: Not more than 25 DO 
loops may be nested. 


INVALID RESULT FIELD 


IEJ1441 
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Explanation: The result field of 
an arithmetic Statement is invai- 
id. 


ILLEGAL NUMBER OF STATEMENT NUM- 
BERS 


Explanation: An arithmetic IF 


statement must contain exactiy 
three statement numbers. 

PROGRAM TOO BIG 

Explanation: The object module 


has exceeded the 
range. 


basic register 


INCONSISTENT EQUATE 


Explanation: For example, EQUIVA- 
LENCE (A(1),B),(A(2),C),(B,C) ora 
double-precision variable in COM- 
MON is not on the proper boundary. 


TWO VARIABLES IN COMMON ARE EQUAT- 
ED 


Explanation: Two or more vari- 
ables equivalenced are in COMMON. 


COMMON EXTENDED UPWARD 


Explanation: An EQUIVALENCE 
Statement cannot cause COMMON to 
be extended before the beginning 


of the COMMON area. 


DUMMY ARRAY OR VARIABLE IN COMMON 


A dummy variable or 
permitted in COMMON. 


array is not 


EQUATED NAME NOT A VARIABLE 


Explanation: The equated name 


must be a variable. 


WARNING--POSSIBLE MISSING DEFINE 
FILE STATEMENT 


Explanation: There is no DEFINE 
FILE statement for a data set 


specified in a 
READ, or WRITE 


reference number 
direct access FIND, 
statement. 


WARNING--LAST EXECUTABLE STATEMENT 
NOT RETURN, STOP, IF OR GO TO 
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Explanation: The last executable 
statement of a program should be a 


RETURN, STOP, IF, or an uncondi- 
tional GO TO statement. 
Compiler action: The compiler 


generates a RETURN before the END 


statement. 


WARNING--STATEMENT CONTAINS SUPER- 
FLUOUS INFORMATION 


Explanation: The statement has 
been compiled but something super- 
fluous exists at the end, e.g., 
REWIND I XYZ 

XYZ is superfluous 


WARNING--SUGGEST SUBDIVIDING PRO- 
GRAM 


Explanation: Program causes use 
of spill base register producing 
inefficient object code 


User Response: Subdivide program 


into a main program and a series 
of subprograms. 

WARNING--BLANK CARD 

Explanation: The card contains 
only a statement number. 

Compiler Action: The card is 


ignored. 


WARNING--TOO MANY DIGITS IN NUMBER 


WARNING--STATEMENT NUMBER MISSING 


Explanation: Format statement 
must have a statement number. 


Compiler Action: The statement is 


ignored. 


WARNING--UNREFERENCED FORMAT 
STATEMENT 
Explanation: A FORMAT statement 


is not referred to by any other 
statement. 


Compiler Action: The FORMAT 


Statement is not processed. 


WARNING~-REDUNDANT COMMA 


Explanation: There is a redundant 
comma in the statement. 
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The redundant 


Compiler Action: 
comma is ignored. 


WARNING--LINE TOO LONG 


Explanation: Record length indi- 
cated in the FORMAT statement 
exceeds length stated or assumed 
for the compiler option LINELNG. 


WARNING--END CARD MISSING 


Explanation: The end of the 
source program is reached and an 


END card is not there. 


Compiler Action: Processing con- 


tinues as if it were there. 


WARNING--RIGHT PARENTHESIS MISSING 


Explanation: The right parenthe- 
sis in the statement is missing. 
Compiler Action: Processing con- 
tinues as if it were there. 


WARNING--ZERO OR NO COUNT IN X 
CONVERSION 


Explanation: The number preceding 
the X format code is 0 or blank. 


Compiler Action: Processing con- 
tinues, ignoring the xX format 
code. 


WARNING--PARAMETERS MISSING 


Explanation: There are no param- 
eters following a left parenthesis 
or a comma. 


WARNING--UNREFERENCED ASF ARGUMENT 


Explanation: Argument of state- 
ment function not referred to in 
the arithmetic expression of the 
statement function. 


WARNING--EXCESSIVE RIGHT PARENTHE- 
SIS 


Compiler Action: The additional 
right parentheses in the statement 


mnYennmod 


ues. 


WARNING--ARRAY 
USED AS SCALAR 


Explanation: The name of the 
array is not followed by a = sub- 
script enclosed in parentheses. 


WARNING--STATEMENT NUMBER ON DEC- 
LARATIVE STATEMENT 


IEJ175I 


Explanation: The statement number 
associated with the declarative 
statement is superfluous. 


LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The load module produces three types of 
diagnostic messages: 


e Operator messages. 
e Execution error messages. 
e Program interrupt messages. 


Operator Messages 


Operator messages for STOP and PAUSE are 
generated by FORTRAN load modules. 


The message for a PAUSE is of the form 
yy IHCO01A PAUSE xxxxx 


where: 
yy is the identification number and 
XxXxXxx is the number specified in the 
PAUSE source statement. 


A PAUSE is executed. The 
programmer should give instructions that 
indicate the action to be taken by the 
operator when the PAUSE is encountered. 


Explanation: 


User Response: To resume execution, the 
operator presses the REQUEST key. When the 


PROCEED light comes on, the operator types 
REPLY yy,'2Z'‘ 


where: 
yy is the identification number and Z 
is any letter or number. To resume 
program execution the operator must 
press the alternate coding key anda 
numeric 5. 


The message for a STOP statement is of 
the form 


THCOO2T STOP xxxxx 
where: 


XXxxx is the number specified in the 
STOP source statement. 


User Response: None 


Program Interrupt Messages 


Program interrupt messages containing 
the old program status word (PSW) are 
written when an exception occurs. The 


format is: 


IHC210I PROGRAM INTERRUPT (P) - OLD PSW IS 


9 
XXXXXXX J C\XXXXXXXX 
D 
F 
The letter P in the message indicates 
that the interruption was precise. This 
will always be the case for non- 


specification interrupt messages in FORTRAN 
except when using machines with special 
hardware on which imprecise interruptions 
May occur. 


The four characters in the PSW (i.e., 9, 
Cc, OD, or F) represent the code number (in 
hexadecimal) associated with the type of 
interruption. The following text describes 
these interruptions. 


Fixed-Point-Divide Exception: The fixed- 
point-divide exception, assigned code 


number 9, is recognized when division of a 
fixed-point number by zero is attempted. A 
fixed-point divide exception would occur 
during execution of the following state- 
ments: 


J=0 
I=7 
K=I/J 


Exponent-Overflow Exception: The exponent- 
overflow exception, assigned code number C, 


is recognized when the result of a 
floating-point addition, subtraction, 
multiplication, or division is greater than 
or equal to 1663 (approximately 7.2 x 
1075). For example, an exponent-overflow 
would occur during execution of the state- 
ment 


A = 1.0E+75 + 7.2E+75 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction and sign is correct. Howev- 
er, the number is not usable for further 
computation since its characteristic field 
no longer reflects the true exponent. The 
content of the result register as it exist- 
ed when the interrupt occurred is printed 
following the program interrupt message 
with the format: 
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REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
hhhhhhhhhhhhhhhh is the floating-point 
number in hexadecimal 
notation. 

Exponent overflow causes "exponent 
wraparound" -- i.e., the characteristic 
field representS an exponent that is 128 
smaller than the correct one. Treating 


bits 1 to 7 (the exponent characteristic 
field) of the floating-point number as a 
binary integer, the true exponent (TE) may 
be computed, as follows: 


TE=(Bits 1 to 7)+128-64 


Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(1663#(1-16"%)) or in long precision 
(16°3*(1-1671%)), but the sign of the 
result is not changed. The condition code 
is not altered. 


Exponent-Underflow Exception: The exponent- 


underflow exception, assigned code number 
D, is recognized when the result of a 
floating-point addition, subtraction, 
multiplication, or division is less than 
16-65 (approximately 5.4x10-79). An 
exponent-underflow exception would occur 


during execution of the statement: 
A = 1.0E-50 * 1.0E-50 


Although exponent underflows can _ be 
masked, FORTRAN jobs are executed without 
the mask so that the library will handle 
such interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
iS correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
hhhhhhhhhhhhhhhh is the floating-point 
number in hexadecimal 
notations. 


Exponent underflow causes “exponent 
wraparound" - i.e., the characteristic 
field represents an exponent that is 128 
larger than the correct one. Treating bits 
1 to 7 (the exponent characteristic field) 
of the floating-point number as a binary 
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integer, the true (TE) 


computed as follows: 


exponent may be 


TF=(Bits 1 to 7)-128-64 


Before program execution continues, the 
FORTRAN library sets the result register to 
a true zero of correct precision. If the 
interrupt resulted from a floating-point 
addition or subtraction operation, the con- 
dition code is set to zero to reflect the 
setting of the result register. 


Note: The System/360 Operating System FOR- 
TRAN programmer who wishes to take advan- 
tage of the “exponent wraparound" feature 
and handle the interrupt in his own program 
must call an assembly language subroutine 
to issue a SPIE macro instruction which 
will override the FORTRAN interruption rou- 
tine. 


Floating-Point-Divide Exception: The 
floating-point-divide exception, assigned 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. A floating-point divide 


exception would occur during execution of 
the following statements: 


Execution Error Messages 


In the following text, the error codes 
are given with an explanation describing 
the type of error. Preceding the explana- 
tion, an abbreviated name is given indicat- 
ing the origin of the error. Unless other- 
wise specified, a condition code of 16 is 
generated and the job step is terminated. 


The abbreviated name for the 
the error is: 


Origin of 


IBC - IHCFCOME, IHCFIOSE, and IHCDIOSE 


routines (perform input/output conver- 
sions for FORTRAN load module execution 
and act aS an interface between FORTRAN 


I/O statements and the control program). 


LIB - SY¥YS1.FORTLIB. 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


In the explanation 


IBERR - IHCIBERR Routine (detects error 


conditions that arise because a load 
module is executed that has FORTRAN 
language errors indicated in diagnostic 


messages given when the source module 


was compiled). 


IHC211I 


THC2121 


ITHC2131 


IHC214T 


IHC2151I 


IHC2161 


IHC2171 


| IHC218I 


IHC2191 


THC220I 


Explanation: IBC -- An invalid 
character has been detected in a 
FORMAT statement. 


Explanation: IBC -- An attempt has 
been made to read or write, under 
FORMAT control, a record that 
exceeds the BLKSIZE value. 


Explanation: IBC -- The input list 
in an input/output statement with- 
out a FORMAT specification is lar- 
ger than the logical record. 


Explanation: FIOCS -- For records 
in sequential data sets written 
without FORMAT control, for which 
the RECFM subparameter must be V 
(variable), either U (undefined) 
or F (fixed) was specified. 


Explanation: IBC -- An invalid 
character exists for the decimal 


input corresponding to an I, E, F, 
or D format code. 


Explanation: LIB -- An invalid 
sense light number was detected in 
the argument list in a call to the 
SLITE or SLITET subroutine. 


Explanation: IBC ~- An end of data 
set was sensed during a READ oper- 
ation; that is, a program attempt- 
ed to read beyond the data. 


I/O ERROR xxx...XXX 


Explanation: IBC -~- A permanent 
input/output error has been 


encountered, or an attempt has 


been made to read or write with 
Magnetic tape a record that is 
less than 18 bytes long. 


XXX...XXX iS the character string 
formatted by the SYNADAF macro 
instruction. For an interpreta- 
tion of this information, see IBM 


System/360 Operating System Super- 


visor and Data Management Macro- 
Instructions, Form C28-6647, 


Explanation: FIOCS -- A data _ set 
is referred to in the load module, 
but no DD statement is supplied 
for it, or a DD statement has an 
erroneous ddname. 


Explanation: FIoCS -- A data set 
reference number exceeds the limit 
specified for data set reference 
numbers when this operating system 
was generated. 


ITHC2301 


IHC2311 


THC2321 


THC2331 


THC2341I 


THC2351I 


THC2361 


ITHC2371 


IHC241T 


IHC242T1 


SOURCE ERROR AT 
EXECUTION FAILED 


ISN XXXX 7 


Explanation: IBERR -- During load 
module execution, a Source state- 
ment error is encountered. The 
internal statement number for the 
source statement is xxxx. 


Explanation: DIOCS -- Direct ac- 
cess input/output statements are 


used for a sequential data set, or 
input/output statements for a 
sequential data set are used for a 
direct access data set. 


Explanation: DIOCS -- Relative po- 
Sition of a record is not a_ posi- 
tive integer, or the relative 
position exceeds the number of 
records in the data set. 


Explanation: DIOCS -- The record 
Iength specified in the DEFINE 
FILE statement exceeds the physi- 
cal limitation of the volume 
assigned to the data set in the DD 


statement. 


-~- The data set 
execution error 
a direct access 


Explanation: DIOCS 
assigned to print 
messages cannot be 
data set. 


Explanation: DIOCS -- A data _ set 
reference number assigned to a 
direct access data set has been 


used for a sequential data set. 


DIOCS -- A READ is 
a direct access data 
not been created. 


Explanation: 
executed for 


set that has 


Explanation: DIOCS -- Length of 
record read did not correspond to 
length of record specified in the 
DEFINE FILE statement. 


Explanation: LIB -- For an ex- 
ponentiation operation (I**J) in 
the subprogram IHCFIXPI(FIXPI#) 
where I and J represent integer 
variables or integer constants, 
I=0 and J<O is an error. 

Explanation: LIB -- For an ex- 


ponentiation operation -(R**J) in 
the subprogram IHCFRXPI(FRXPI#), 
where R represents a real variable 
Or constant, and J represents an 


integer variable or constant, R=0 
and J<0O is an error. 
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IHC2431 


IHC244T 


IHC 2451 


IHC251T 


IHC2521 


IHC2531 


fo 
my 
oO 


Explanation: LIB -- For an ex- 
ponentiation operation (D*¥*J) in 
the subprogram IHCFDXPI(FDXPI#), 


where D represents a double preci- 


Sion variable and J represents an 
integer variable or constant, D=0 
and J<0O is an error. 

Explanation: LIB -- For an ex- 
ponentiation operation (R**S) in 
the subprogram JIHCFRXPR(FRXPR#), 


and S are real variables 
R=0 and S<O is 


where R 
or real constants, 
and error. 


Explanation: LIB -- For an ex- 
ponentiation operation (D**P) in 
the subprogram JIHCFDXPD(FDXPD#), 


where D and P are double precision 
variables or double precision con- 
stants, D=0 and P<0 is an error. 


Explanation: LIB -- In the subpro- 
gram IHCSSQORT(SORT), an argument 
less than 0 is an error. 


Explanation: LIB -- In the subpro- 
gram IHCSEXP(EXP), an argument 
greater than 174.673 is an error. 


Explanation: LIB -- In the subpro- 


gram JIHCSLOG(ALOG and ALOG10), an 
argument less than or equal to 
zero iS an error. Because this 


subprogram is called by an 
nential subprogram this 


expo- 
message 


THC2541 


IHC2611I 


IHC2621 


IHC2631 


THC2641 


also indicates that an attempt has 
been made to raise a negative base 
to a real power. 


Explanation: LIB -- In the subpro- 
gram IHCSSCN(SIN and COS), the 
absolute value of an argument 
greater than or equal to 218emr is 
an error. 

(218em =,82354966406249996D+06) 


Explanation: LIB -- In the subpro- 
gram IHCLSQORT(DSORT), an argument 
less than 0 is an error. 


Explanation: LIB -- In the subpro- 
gram IHCLEXP(DEXP), an argument 
greater than 174.673 is an error. 


Explanation: LIB -- In the subpro- 
gram IHCLLOG(DLOG and DLOG10), an 
argument less than or equal to 
zero iS an error. Because the 
Subprogram is called by an expo- 
nential subprogram, this message 
also indicates that an attempt has 
been made to raise a negative 
double precision base to a _ power. 


Explanation: LIB -- In the subpro- 
gram IHCLSCN(DSIN and DCOS), the 
absolute value of an argument 
greater than or equal to 25°er is 
an error. 

(25°9er =, 35371188737802239D+16) 


A, device class 28,55 
ABEND dump 89 
ABSTR subparameter 81 
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ACCT parameter 23 
ACCT.procstep parameter 23 
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editor 43 
ADJUST compiler option 
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Affinity for devices 81 
ALIAS linkage editor control statement 45 
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calling sequence 99 
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BLKSIZE subparameter 55,56 
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Card input and output 26,27 
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Cataloged procedure 
IBM supplied 12-13 
invocation of 21 
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Column binary mode 27 
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direct access 12 
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DDNAME parameter 52 
definition of 24,50,80 
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DUMMY parameter 51 
LABEL parameter 48,54-55 
SEP parameter 80 
SPACE parameter 53-54,79,81 
SPLIT parameter 81 
SUBALLOC parameter 82 
SYSOUT parameter 28,49,55 
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VOLUME parameter 52-53 
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Deck compiler option 38,85 
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DEFINE FILE statement 
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Delimiter statement 31 
DEN subparameter 56 
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Device class 10 
Diagnostic messages 86 
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Direct access data sets 
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record length 62 
Direct access programming 
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record chaining 78 
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quantity 54,81 
DISP parameter 30,55 
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DUMP subroutine 76-77 
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EBCDIC compiler option 38 

EBCDIC mode 27 

END card for object modules 85 

END FILE statement 47,48,62 

ENTRY linkage editor control statement 45 

EQUIVALENCE statement 83 

Error message data set 49 

Error/warning messages 
generated by the compiler 87,106-115 
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generated for load modules 89,115-118 
ESD card 85 
Exceptions 
exponent-overflow 89,115 
exponent-underflow 89,115 
fixed-point-divide 89,115 
floating-point-divide 89,116 


EXEC statement 
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ACCT. procstep parameter 23 
COND parameter 23 
COND.procstep parameter 23 
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name 21 
PARM parameter 22,37, 69 
PARM.procstep parameter 
PGM parameter 21 
PROC parameter 21 
Execution, load module 
DCB assumptions 64 
ddnames 46-48 
device classes 49 
error message data set 49 
errors (see error-warning messages) 
program name 46 
restrictions 83 
storage map 86 
EXPDT subparameter 55 
Expiration date for data sets 55 
Exponent-overflow 89,115 
Exponent-underflow 89,115 
Exponentiation 73-74 
External references 
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Fields in job control statements 
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operand field 15 
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Fixed-length records 
Fixed-point-divide 
Floating-point-divide 
FORTEC 

description of 65 

use of 13,32,65 
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FORTECL 
description of 65 
use of 13,33,65 
FORTECLG 
description of 67 
use of 13,34,65 
FORTELG 


description of 65 

use of 13,33-34,65 
FORTRAN library 12,41,43,83 
FORTRAN records 

direct-access data sets 62 

sequential data sets 56,57 
FORTRAN sequence number 47-49 
FTXxFyyy 47 


Generation data group 10,29 
Generation data set 10,29 
Generation number 10,29 


IEJFAAAO 35 
IEWL 41 

IEWLE150 414 

IEWLE180 41 

TEWLE4Y4O 41 
INCLUDE Linkage Editor Control Statement 

42,43 

Index 

directory 12 

for cataloged data sets 10 
Index name 10 
Informative messages 86,106 
Initialization in programs 73 
Input 


to the compiler 32,37 


to the linkage editor 41-42 
Input stream 9,26 
INSERT linkage editor control statement 45 
Integer constants and variables 35 
Intermediate storage device 35,55 
Internal statement number 87 
Interrupt messages 89,118 
I/O devices 

address 27,52,80,81 

name 27,52,80,81 

number of 27,52,80,81 


Job 9 
Job control statements 
comments 15 
continuing 15 
notation for defining 
JOB statement 
account number parameter 18 
accounting information parameter 18 
COND parameter 19 
definition of 17 
MSGLEVEL parameter 18 
name 18 
programmer's name parameter 18 
Job step 9 
JOBLIB DD statement 
Jobname 18 


14-15 


16-17 


26,31,47 


KEEP subparameter 30 
Keyword parameters and subparameters 15 
Keyword.procstep 22,69 


LABEL parameter 48,54-55 
Labels, data set 10,28,48,54-55 


Length 
buffer 56,62 
of FORTRAN records 57,62 
of logical records 57,62 


LET linkage editor option 45 
Library 
automatic call 41,42,43 
FORTRAN 12,41,43,83 
private 21 
system 21 
LIBRARY linkage editor control 
statement 43 
LINELNG compile option 38 
Link edit and execute cataloged 
procedure (FORTELG) 65 
Linkage conventions 100,101 
Linkage editor 
additional input 43 
automatic call library 41,42,43 
control statements 43-44 
cross-reference list 45,88 
ddnames used with 42 
definition of 11 
device classes 42 
diagnostic messages 88 


module map 45,88 
name 41 
options 43-44 


primary input 41 
priority 43 
restrictions 84 
secondary input 41 
LIST linkage editor option 46 


LOAD compiler option 38 
Load module 
cross-reference list 88 
definition of 11 
execution of (see execution, load 
module) 
map 88 
restrictions 84 
Locations, storage 35 
Logical records 
fixed-length 56-63 
format of 56-63 
variable-length 56-63 
LRECL subparameter 56 


MAP 
compiler option 38 
linkage editor option 45 
Member of a PDS 12 
Messages 
compiler error/warning 
compiler informative 
control statement 18 
linkage editor 88 
load module 89,115-118 
Operator 89,115 
program interrupt 89,118 
source module diagnostic 86,87 
Minimum system requirements 73 
MOD subparameter 30 
MODE subparameter 27 
Module map 
load module 88 
object module 73 
MSGCLASS parameter 19 
MSGLEVEL parameter 18 
Multiple compilation 39-40 
Multiple link editing 44-45 
Multiprogramming with a variable number 
of tasks (MVT) 
cataloged procedures 66,82 
job control language 14 
job management 14 
programming considerations 82 
MVT (see Multiprogramming with a variable 
number of tasks) 
MXIG subparameter 54 


87,106-115 
86,106 


NAME 
compiler option 38,40 
linkage editor control statement 44 
Name Subparameter 28,52,81 
NCAL linkage editor option 46 
NEW subparamter 30 
NL subparameter 48,55 
NOADJUST compiler option 
NODECK compiler option 38 
NOLOAD compiler option 38 
NOMAP compiler option 38 
NOSOURCE compiler option 38 
Notation for defining control statements 
16-17 
Number of I/O devices subparameter 
28,52,81 


39,73 


Object module 
card deck 85-86 
definition of 11 
map 85 
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OLD subparameter 30 

Optimization 
ADJUST option 73 
direct-access programming 77-79 
DUMP subroutine 76-77 
implied DO in I/O statements 75 
initialization 73 
I/O operations 75,/77-79 
NOADJUST option 73 
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of DO loops 74-75 
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program structure 75-76 
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Options 
compiler 37-39 
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statement 45 

Overlaying load modules 46 
Overriding cataloged procedures 
13,22-23,24, 68-72 

OVLY Linkage editor option 46 


Parameters 

keyword 15 

positional 15 
PARM parameter 22,37,69 
PARM.procstep parameter 
Partitioned data set 12 
PASS subparameter 31 
Passed data sets 31 
Passing arguments 

call by name 79 

call by value 79 
PAUSE statement 89,115 
PDS (see partioned data set) 
PDUMP subroutine 76-77 
PGM parameter 21 
Positional parameters and subparameters 15 
PRFRM compiler option 36,39,63 
Primary input 41 
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Priority schedulers 14 
PRIVATE subparameter 52 
Private volume 52 
PROC parameter 21 
Procedure step 13 
Procedure, cataloged 
Procstep 21,22 
Procstep.ddname 25 
Procstep.SYSIN 32 
Programmer's name parameter 18 
PRTSP subparameter 27 
PRTY parameter 19 


22,69 


53,31 
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Qualified name 10 
Randomizing techniques 77 


Real constants and variables 35 
RECFM subparameter 56 
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Record chaining 78 

REF subparameter 53 

REGION parameter 19,24 

Register use 100 

REPLACE linkage editor control 
statement 45 

RETAIN subparameter 52 

Retention period for data sets 55 

RETPD subparameter 55 

Retrieving data sets 28-29, 48-49 

REWIND statement 49,62 

RLD cards 85 

RLSE subparameter 54 

ROUND subparameter 54 


Save area 99 

Secondary input 41 

Secondary quantity subparameter 

Segment numbers 88 

SEP parameter 81 

SEP subparameter 81 

Sequential data set 12 

SER sSubparameter 52 

Serial number, volume 53 

SHR subparameter 30 

SIZE compiler option 

Skeleton records 78 

SL subparameter 48,55 

SOURCE compiler option 

Source listing 85 

Source module 11 

SPACE compiler option 36,39 

Space on direct-access volumes 

SPACE parameter 53-54,81 

Specifying execution of a program 
described in a cataloged procedure 22 
described in a previous job step 21 
in a library 21 

SPLIT parameter 81 

STACK subparameter 27 

Stacker selection 27 

Standard labels 10,28,48,54 

step 
job 9 
procedure 13 

Stepname 18 

STOP statement 

Storage map 86 

SUBALLOC subparameter 82 

Subparameters i5 

Subprograms, assembler language 99 

SYSCP device class 37 

SYSDA device class 37 

SYSIN ddname 32, 36,37 

SYSLIB ddname 42 

SYSLIN ddname 36,37,42 

SYSLMOD ddname 42 


53,81 


38,73 
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53-54,81 
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SYSOUT parameter 28,49,55 
SYSPRINT ddname 36,37 
SYSPUNCH ddname 36,37 


SYSSQ device class 37 
SYSUT1 ddname 36,37 
SYSUT2 ddname 36,37 
SYS1.FORTLIB i12,41,83,i1 


on 


Tape density 56 

Temporary names for data sets 30,52 
Terminating a job 18 

TRK subparameter 54,82 


TRICH subparameter 56 
TXT card 85 
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direct-access data set 62-63 

sequential data set 56-62 
UNCATLG subparameter 31 
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UNIT parameter 27,52,80 
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